File: of Disk: Disks/Working/MyProgs-22-04-07
(Source file text)
/15454-3015 XM
TAD 5556 /15455-1356 K.
CMA /15456-7040 8
TAD 0034 /15457-1034 H\
SNA CLA /15460-7650 >(
JMP I 5564 /15461-5764 /4
CDF 0 /15462-6201 2A
TAD I 0015 /15463-1415 LM
CDF 10 /15464-6211 2I
JMS I 5565 /15465-4765 '5
TAD 0015 /15466-1015 HM
CMA /15467-7040 8
TAD 0034 /15470-1034 H\
SNA CLA /15471-7650 >(
JMP I 5452 /15472-5652 .*
JMP 5462 /15473-5262 *2
AND 0000 /15474-0000 @@
JMS 5431 /15475-4231 "Y
JMS I 5576 /15476-4776 '>
TAD FMS10 /15477-1032 HZ
SNA /15500-7450 <(
JMP 5541 /15501-5341 +!
TAD 5563 /15502-1363 K3
SNA /15503-7450 <(
JMP 5510 /15504-5310 +H
TAD 5562 /15505-1362 K2
SZA CLA /15506-7640 >
JMP I 5564 /15507-5764 /4
CDF 0 /15510-6201 2A
DCA I 0034 /15511-3434 \\
CDF 10 /15512-6211 2I
JMS 5443 /15513-4243 "#
AND 5505 /15514-0305 CE
AND 5527 /15515-0327 CW
AND 0000 /15516-0000 @@
JMS 5452 /15517-4252 "*
JMS 5400 /15520-4200 "@
TAD 0034 /15521-1034 H\
DCA 5556 /15522-3356 [.
JMS I 5574 /15523-4774 '<
JMS I 5576 /15524-4776 '>
JMS 5443 /15525-4243 "#
AND 5433 /15526-0233 B[
AND 5505 /15527-0305 CE
AND 5522 /15530-0322 CR
AND 0000 /15531-0000 @@
JMS 5452 /15532-4252 "*
JMS 5400 /15533-4200 "@
JMS 5443 /15534-4243 "#
AND 5433 /15535-0233 B[
AND 5531 /15536-0331 CY
AND 0000 /15537-0000 @@
JMP 5553 /15540-5353 ++
JMS 5443 /15541-4243 "#
AND 5505 /15542-0305 CE
AND 5502 /15543-0302 CB
AND 0000 /15544-0000 @@
JMS 5452 /15545-4252 "*
JMS 5400 /15546-4200 "@
JMS 5443 /15547-4243 "#
AND 5433 /15550-0233 B[
AND 5531 /15551-0331 CY
AND 0000 /15552-0000 @@
JMS I 5573 /15553-4773 ';
AND 0000 /15554-0000 @@
JMP I 5474 /15555-5674 .<
AND 0000 /15556-0000 @@
JMS I 5561 /15557-4761 '1
6400 /15560-6400 4@
JMP 0000 /15561-5000 (@
MQA MQL CLA ASR /15562-7735 ?]
SMA OSR /15563-7504 =D
JMP 0160 /15564-5160 )0
JMP I 5400 /15565-5600 .@
JMS I 5447 /15566-4647 &'
MQA MQL CLA DPIC /15567-7773 ?;
JMP I 5462 /15570-5662 .2
MQA MQL SAM /15571-7577 =?
SZA /15572-7440 <
NOP /15573-7000 8@
7214 /15574-7214 :L
JMS 0127 /15575-4127 !W
7315 /15576-7315 ;M
JMP I 5463 /15577-5663 .3
*6000
AND 0000 /16000-0000 @@
TAD 6177 /16001-1377 K?
DCA 0016 /16002-3016 XN
CDF 0 /16003-6201 2A
TAD I 0016 /16004-1416 LN
SZA CLA /16005-7640 >
JMP 6004 /16006-5204 *D
CLA CMA /16007-7240 :
TAD 0016 /16010-1016 HN
DCA 0016 /16011-3016 XN
TAD 6176 /16012-1376 K>
DCA I 0016 /16013-3416 \N
DCA I 0016 /16014-3416 \N
CDF 10 /16015-6211 2I
CLA CMA /16016-7240 :
TAD 0016 /16017-1016 HN
DCA I 6175 /16020-3775 _=
JMP I 6000 /16021-5600 .@
SNL HLT /16022-7422 <R
TAD I 6174 /16023-1774 O<
DCA 0035 /16024-3035 X]
CDF 0 /16025-6201 2A
ISZ 0035 /16026-2035 P]
TAD I 0035 /16027-1435 L]
CDF 10 /16030-6211 2I
SNA /16031-7450 <(
JMP 6046 /16032-5246 *&
TAD 6173 /16033-1373 K;
SNA /16034-7450 <(
JMP I 6022 /16035-5622 .R
TAD 6172 /16036-1372 K:
SZA CLA /16037-7640 >
JMP 6025 /16040-5225 *U
TAD 6176 /16041-1376 K>
CDF 0 /16042-6201 2A
DCA I 0035 /16043-3435 \]
CDF 10 /16044-6211 2I
JMP I 6022 /16045-5622 .R
ISZ 6022 /16046-2222 RR
JMP I 6022 /16047-5622 .R
ISZ 0027 /16050-2027 PW
CIF CDF 0 /16051-6203 2C
JMS I 6171 /16052-4771 '9
TAD 6170 /16053-1370 K8
DCA 0034 /16054-3034 X\
JMS I 6167 /16055-4767 '7
SNA /16056-7450 <(
JMP I 6050 /16057-5650 .(
TAD 6166 /16060-1366 K6
SZA CLA /16061-7640 >
JMP 6055 /16062-5255 *-
TAD 0034 /16063-1034 H\
DCA I 6165 /16064-3765 _5
JMS I 6164 /16065-4764 '4
JMS I 6163 /16066-4763 '3
JMS I 6162 /16067-4762 '2
DCA I 6161 /16070-3761 _1
TAD 6160 /16071-1360 K0
DCA FLS10 /16072-3033 X[
JMS I 6157 /16073-4757 '/
SZA CLA /16074-7640 >
TAD I 6156 /16075-1756 O.
SNA /16076-7450 <(
JMP I 6155 /16077-5755 /-
RESBUF, AND 0000 /16100-0000 @@
TAD I 6154 /16101-1754 O,
DCA 6107 /16102-3307 [G
CIF 0 /16103-6202 2B
JMS I 0020 /16104-4420 $P
AND 6000 /16105-0200 B@
JMP 6000 /16106-5200 *@
AND 0000 /16107-0000 @@
JMP I 6155 /16110-5755 /-
TAD 6153 /16111-1353 K+
DCA 6107 /16112-3307 [G
TAD 6152 /16113-1352 K*
DCA 0016 /16114-3016 XN
TAD 6106 /16115-1306 KF
DCA 0020 /16116-3020 XP
CDF 0 /16117-6201 2A
TAD I 0020 /16120-1420 LP
JMS I 6151 /16121-4751 ')
CLL RTR /16122-7112 9J
RTR /16123-7012 8J
DCA 6022 /16124-3222 ZR
ISZ 0020 /16125-2020 PP
TAD I 0020 /16126-1420 LP
JMS I 6151 /16127-4751 ')
CLL RTL /16130-7106 9F
RTL /16131-7006 8F
RAL /16132-7004 8D
TAD 6022 /16133-1222 JR
JMS I 6151 /16134-4751 ')
CLA /16135-7200 :@
ISZ 0020 /16136-2020 PP
ISZ 6107 /16137-2307 SG
JMP 6120 /16140-5320 +P
JMP I 6150 /16141-5750 /(
AND 0000 /16142-0000 @@
AND 0000 /16143-0000 @@
AND 6121 /16144-0321 CQ
TAD 6146 /16145-1346 K&
AND I 0115 /16146-0515 EM
DCA 6054 /16147-3254 Z,
6307 /16150-6307 3G
6200 /16151-6200 2@
JMS I 6177 /16152-4777 '?
CLA /16153-7600 >@
JMS I 0043 /16154-4443 $#
CLA CLL CMA RTL /16155-7346 ;&
JMS 0117 /16156-4117 !O
JMS I 0000 /16157-4400 $@
DCA 6116 /16160-3316 [N
DCA I 0135 /16161-3535 ]]
JMS 0060 /16162-4060 0
7315 /16163-7315 ;M
CLA CMA CML IAC BSW /16164-7263 :3
6266 /16165-6266 26
SMA /16166-7500 =@
JMS I 6107 /16167-4707 'G
AND I 6177 /16170-0777 G?
MUY /16171-7405 <E
MQA MQL CLA ASR /16172-7735 ?]
SMA OSR /16173-7504 =D
SZA /16174-7440 <
JMP I 6141 /16175-5741 /!
AND 6074 /16176-0274 B<
TAD 0000 /16177-1000 H@
*6400
ISZ I 0136 /16400-2536 U^
DCA 0020 /16401-3020 XP
TAD I 6400 /16402-1600 N@
DCA 6423 /16403-3223 ZS
ISZ 6400 /16404-2200 R@
CLA CMA /16405-7240 :
TAD I 6400 /16406-1600 N@
DCA 0016 /16407-3016 XN
ISZ 6400 /16410-2200 R@
TAD I 6400 /16411-1600 N@
DCA 6425 /16412-3225 ZU
ISZ 6400 /16413-2200 R@
CLA CMA /16414-7240 :
TAD I 6400 /16415-1600 N@
DCA 0015 /16416-3015 XM
ISZ 6400 /16417-2200 R@
TAD 0020 /16420-1020 HP
SNA CLA /16421-7650 >(
JMP I 6400 /16422-5600 .@
CDF 0 /16423-6201 2A
TAD I 0016 /16424-1416 LN
CDF 10 /16425-6211 2I
DCA I 0015 /16426-3415 \M
ISZ 0020 /16427-2020 PP
JMP 6423 /16430-5223 *S
CDF 10 /16431-6211 2I
JMP I 6400 /16432-5600 .@
AND 0000 /16433-0000 @@
CIF 0 /16434-6202 2B
JMP I 6577 /16435-5777 /?
JMP I 6433 /16436-5633 .[
JMS I 6576 /16437-4776 '>
6505 /16440-6505 5E
CIF CDF 0 /16441-6203 2C
JMP I 6575 /16442-5775 /=
JMS I 6576 /16443-4776 '>
6474 /16444-6474 4<
JMP I 6433 /16445-5633 .[
JMS I 6576 /16446-4776 '>
6517 /16447-6517 5O
JMP 6441 /16450-5241 *!
JMS I 6576 /16451-4776 '>
6472 /16452-6472 4:
JMP I 6433 /16453-5633 .[
AND 0000 /16454-0000 @@
TAD I 6464 /16455-1664 N4
SZA CLA /16456-7640 >
JMP I 6454 /16457-5654 .,
TAD I 6574 /16460-1774 O<
DCA I 6464 /16461-3664 ^4
JMS I 6573 /16462-4773 ';
JMP I 6454 /16463-5654 .,
CLA /16464-7600 >@
TAD I 6464 /16465-1664 N4
TAD 6572 /16466-1372 K:
DCA 6425 /16467-3225 ZU
TAD I 6425 /16470-1625 NU
TAD 6571 /16471-1371 K9
SZA CLA /16472-7640 >
JMP I 6454 /16473-5654 .,
JMS I 6576 /16474-4776 '>
6602 /16475-6602 6B
JMP I 6454 /16476-5654 .,
AND 0000 /16477-0000 @@
TAD I 6570 /16500-1770 O8
RTR /16501-7012 8J
SZL CLA /16502-7630 >X
TAD 6567 /16503-1367 K7
TAD 6464 /16504-1264 J4
DCA 6533 /16505-3333 [[
TAD I 6533 /16506-1733 O[
SZA CLA /16507-7640 >
JMP I 6477 /16510-5677 .?
JMS I 6566 /16511-4766 '6
AND 0012 /16512-0012 @J
AND 0000 /16513-0000 @@
AND 0000 /16514-0000 @@
AND 0000 /16515-0000 @@
JMP I 6565 /16516-5765 /5
TAD 6514 /16517-1314 KL
DCA I 6533 /16520-3733 _[
TAD 6533 /16521-1333 K[
AND 6567 /16522-0367 C7
SNA CLA /16523-7650 >(
JMP I 6477 /16524-5677 .?
ISZ 6533 /16525-2333 S[
TAD 6564 /16526-1364 K4
JMS 6400 /16527-4200 "@
CDF 10 /16530-6211 2I
AND 0023 /16531-0023 @S
CDF 10 /16532-6211 2I
CLA /16533-7600 >@
JMP I 6477 /16534-5677 .?
TAD 6563 /16535-1363 K3
JMS I 6562 /16536-4762 '2
CDF 0 /16537-6201 2A
TAD I 6561 /16540-1761 O1
CDF 10 /16541-6211 2I
DCA I 6560 /16542-3760 _0
CLA IAC /16543-7201 :A
DCA I 6574 /16544-3774 _<
TAD 6557 /16545-1357 K/
DCA I 6556 /16546-3756 _.
TAD 6557 /16547-1357 K/
DCA I 6555 /16550-3755 _-
TAD 6554 /16551-1354 K,
JMP I 6553 /16552-5753 /+
ISZ I 0107 /16553-2507 UG
CLA CMA RTR /16554-7252 :*
CLA DAD /16555-7643 >#
SZA CLA OSR /16556-7644 >$
AND 0020 /16557-0020 @P
SNL CLA /16560-7620 >P
SNL HLT /16561-7422 <R
JMS I 6447 /16562-4647 &'
MQA MQL CLA DPIC /16563-7773 ?;
SPA SNA SZL CLA OSR /16564-7774 ?<
JMP 6423 /16565-5223 *S
AND 6400 /16566-0200 B@
AND 0005 /16567-0005 @E
ISZ I 0153 /16570-2553 U+
AND 0171 /16571-0171 A9
SZA CLA OSR HLT /16572-7646 >&
ISZ 0135 /16573-2135 Q]
CLA LSR /16574-7617 >O
SINT /16575-6254 2,
JMP 0124 /16576-5124 )T
SRQ /16577-6003 0C
AND 0000 /16600-0000 @@
TAD I 6600 /16601-1600 N@
DCA 6634 /16602-3234 Z\
ISZ 6600 /16603-2200 R@
RDF /16604-6214 2L
TAD 6777 /16605-1377 K?
DCA 6630 /16606-3230 ZX
JMS I X8JMP1 /16607-4471 $9
TAD 6630 /16610-1230 JX
DCA 6632 /16611-3232 ZZ
JMS I RSW10 /16612-4465 $5
AND K100 /16613-0111 AI
SZA CLA /16614-7640 >
JMP 6632 /16615-5232 *Z
JMS I MSG10 /16616-4453 $+
INSERR /16617-7264 :4
TAD 6776 /16620-1376 K>
DCA I 6775 /16621-3775 _=
JMS I MSG10 /16622-4453 $+
FLDXX /16623-7554 =,
JMS I MSG01 /16624-4454 $,
PC /16625-7546 =&
TAD PC1 /16626-1002 HB
JMS I DIGI10 /16627-4462 $2
CIF CDF 0 /16630-6203 2C
JMP I 6600 /16631-5600 .@
CIF CDF 0 /16632-6203 2C
JMP I 6634 /16633-5634 .\
AND 0000 /16634-0000 @@
AND 0000 /16635-0000 @@
CLA CLL CMA RAL /16636-7344 ;$
TAD 6635 /16637-1235 J]
DCA 6707 /16640-3307 [G
TAD I 6707 /16641-1707 OG
DCA 6707 /16642-3307 [G
TAD I 6635 /16643-1635 N]
DCA 6706 /16644-3306 [F
ISZ 6635 /16645-2235 R]
TAD 0015 /16646-1015 HM
SZA CLA /16647-7640 >
JMP 6654 /16650-5254 *,
ISZ 0015 /16651-2015 PM
ISZ 0036 /16652-2036 P^
JMP 6703 /16653-5303 +C
TAD 0036 /16654-1036 H^
CLL RAL /16655-7104 9D
DCA 0036 /16656-3036 X^
TAD 0035 /16657-1035 H]
RAL /16660-7004 8D
DCA 0035 /16661-3035 X]
TAD 0034 /16662-1034 H\
RAL /16663-7004 8D
DCA 0034 /16664-3034 X\
TAD FLS10 /16665-1033 H[
RAL /16666-7004 8D
DCA FLS10 /16667-3033 X[
TAD 0023 /16670-1023 HS
RAL /16671-7004 8D
DCA 0023 /16672-3023 XS
TAD 0023 /16673-1023 HS
SMA /16674-7500 =@
JMP 6702 /16675-5302 +B
CLA CLL /16676-7300 ;@
DCA 0015 /16677-3015 XM
DCA 0023 /16700-3023 XS
JMP I 6635 /16701-5635 .]
AND 6774 /16702-0374 C<
TAD 6706 /16703-1306 KF
DCA FMS10 /16704-3032 XZ
JMP I 6707 /16705-5707 /G
AND 0000 /16706-0000 @@
AND 0000 /16707-0000 @@
AND 0000 /16710-0000 @@
CLA CLL CMA RAL /16711-7344 ;$
TAD 6710 /16712-1310 KH
DCA 6707 /16713-3307 [G
TAD I 6707 /16714-1707 OG
DCA 6707 /16715-3307 [G
TAD 0031 /16716-1031 HY
CLL RAL /16717-7104 9D
SNL /16720-7420 <P
JMP 6723 /16721-5323 +S
JMP 6727 /16722-5327 +W
SNA /16723-7450 <(
IAC /16724-7001 8A
DCA 0031 /16725-3031 XY
JMP I 6707 /16726-5707 /G
DCA 0031 /16727-3031 XY
JMP I 6710 /16730-5710 /H
AND 0000 /16731-0000 @@
TAD 6773 /16732-1373 K;
DCA 0010 /16733-3010 XH
TAD 6772 /16734-1372 K:
DCA 0011 /16735-3011 XI
CDF 0 /16736-6201 2A
DCA I 0010 /16737-3410 \H
TAD 6771 /16740-1371 K9
DCA I 0010 /16741-3410 \H
ISZ 0010 /16742-2010 PH
ISZ 0010 /16743-2010 PH
ISZ 0010 /16744-2010 PH
TAD 0016 /16745-1016 HN
DCA I 0011 /16746-3411 \I
TAD 0017 /16747-1017 HO
DCA I 0011 /16750-3411 \I
JMS I 6770 /16751-4770 '8
CDF 10 /16752-6211 2I
JMP I 6731 /16753-5731 /Y
AND 0000 /16754-0000 @@
TAD 0122 /16755-1122 IR
DCA 0020 /16756-3020 XP
TAD 6767 /16757-1367 K7
DCA 0010 /16760-3010 XH
TAD 6766 /16761-1366 K6
DCA I 0010 /16762-3410 \H
ISZ 0020 /16763-2020 PP
JMP 6761 /16764-5361 +1
JMP I 6754 /16765-5754 /,
JMS 0001 /16766-4001 A
JMP 6777 /16767-5377 +?
NOP /16770-7000 8@
AND 0050 /16771-0050 @(
JMP 6737 /16772-5337 +_
AND 0023 /16773-0023 @S
DCA I 6777 /16774-3777 _?
MQA SAM /16775-7557 =/
6061 /16776-6061 01
CIF CDF 0 /16777-6203 2C
PAGE
AND 0000 /17000-0000 @@
TAD 0031 /17001-1031 HY
DCA I 0010 /17002-3410 \H
TAD 0031 /17003-1031 HY
DCA I 0011 /17004-3411 \I
TAD FMS10 /17005-1032 HZ
DCA I 0010 /17006-3410 \H
TAD FMS10 /17007-1032 HZ
DCA I 0011 /17010-3411 \I
TAD FLS10 /17011-1033 H[
DCA I 0010 /17012-3410 \H
TAD FLS10 /17013-1033 H[
DCA I 0011 /17014-3411 \I
TAD 0034 /17015-1034 H\
DCA I 0010 /17016-3410 \H
TAD 0034 /17017-1034 H\
DCA I 0011 /17020-3411 \I
TAD 0035 /17021-1035 H]
DCA I 0010 /17022-3410 \H
TAD 0035 /17023-1035 H]
DCA I 0011 /17024-3411 \I
TAD 0036 /17025-1036 H^
DCA I 0010 /17026-3410 \H
TAD 0036 /17027-1036 H^
DCA I 0011 /17030-3411 \I
JMP I 7000 /17031-5600 .@
AND 0000 /17032-0000 @@
TAD 7045 /17033-1245 J%
DCA 0010 /17034-3010 XH
DCA 0023 /17035-3023 XS
DCA 0015 /17036-3015 XM
TAD 7046 /17037-1246 J&
DCA 0011 /17040-3011 XI
DCA I 0010 /17041-3410 \H
ISZ 0011 /17042-2011 PI
JMP 7041 /17043-5241 *!
JMP I 7032 /17044-5632 .Z
AND 0030 /17045-0030 @X
SPA SNA SZL CLA HLT /17046-7772 ?:
AND 0000 /17047-0000 @@
CLA CLL CMA /17050-7340 ;
TAD K40 /17051-1110 IH
DCA 0010 /17052-3010 XH
TAD 0123 /17053-1123 IS
DCA 0011 /17054-3011 XI
CDF 0 /17055-6201 2A
DCA I 0010 /17056-3410 \H
ISZ 0011 /17057-2011 PI
JMP 7056 /17060-5256 *.
TAD 0076 /17061-1076 H>
DCA I 0022 /17062-3422 \R
CDF 10 /17063-6211 2I
DCA 0036 /17064-3036 X^
JMP I 7047 /17065-5647 .'
AND 0000 /17066-0000 @@
TAD I 7066 /17067-1666 N6
DCA 7072 /17070-3272 Z:
JMS I 0073 /17071-4473 $;
AND 0000 /17072-0000 @@
TAD K40 /17073-1110 IH
DCA 0022 /17074-3022 XR
TAD 0123 /17075-1123 IS
DCA 0014 /17076-3014 XL
ISZ 7066 /17077-2266 R6
JMP I 7066 /17100-5666 .6
AND 0000 /17101-0000 @@
TAD 7110 /17102-1310 KH
CMA IAC /17103-7041 8!
TAD 7111 /17104-1311 KI
CMA IAC /17105-7041 8!
DCA F1CNT /17106-3141 Y!
JMP I 7101 /17107-5701 /A
DCA I 7000 /17110-3600 ^@
JMP 0016 /17111-5016 (N
TESTXX, JMS 0024 /17112-4024 T
AND I 0123 /17113-0523 ES
ISZ I 0040 /17114-2440 T
DCA 0030 /17115-3030 XX
AND 0000 /17116-0000 @@
EMLLLL, AND I 0130 /17117-0530 EX
ISZ 0040 /17120-2040 P
JMS 0015 /17121-4015 M
ISZ 7127 /17122-2327 SW
JMS 0040 /17123-4040
TAD I 0023 /17124-1423 LS
ISZ I 7160 /17125-2760 W0
JMS 0014 /17126-4014 L
ISZ 7127 /17127-2327 SW
6140 /17130-6140 1
TAD I 0023 /17131-1423 LS
ISZ I 7162 /17132-2762 W2
JMS 0014 /17133-4014 L
ISZ 7127 /17134-2327 SW
6300 /17135-6300 3@
RANARG, DCA I 7122 /17136-3722 _R
AND 0116 /17137-0116 AN
JMS 0016 /17140-4016 N
ISZ I 0115 /17141-2515 UM
JMS 0001 /17142-4001 A
ISZ 7007 /17143-2207 RG
JMS 0040 /17144-4040
AND 0000 /17145-0000 @@
BADARG, DCA I 7102 /17146-3702 _B
AND 0104 /17147-0104 AD
JMS 0022 /17150-4022 R
AND I 0123 /17151-0523 ES
JMS 0001 /17152-4001 A
ISZ 7007 /17153-2207 RG
JMS 0040 /17154-4040
AND 0000 /17155-0000 @@
MSWLSW, TAD I 0123 /17156-1523 MS
ISZ I 7140 /17157-2740 W
JMS 0014 /17160-4014 L
ISZ 7127 /17161-2327 SW
AND 0000 /17162-0000 @@
ACTAPT, DCA I 7101 /17163-3701 _A
AND 7124 /17164-0324 CT
ISZ I 0101 /17165-2501 UA
TAD I 0040 /17166-1440 L
AND 0120 /17167-0120 AP
ISZ I 0040 /17170-2440 T
AND 0116 /17171-0116 AN
AND I 0040 /17172-0440 D
ISZ 7124 /17173-2324 ST
AND 0124 /17174-0124 AT
ISZ I 0123 /17175-2523 US
CLA CMA /17176-7240 :
AND 0000 /17177-0000 @@
IR0TO7, TAD 0122 /17200-1122 IR
TFL /17201-6040 0
JMS 0011 /17202-4011 I
ISZ 7261 /17203-2261 R1
JMS 0040 /17204-4040
TAD 0122 /17205-1122 IR
6240 /17206-6240 2
JMS 0011 /17207-4011 I
ISZ 7263 /17210-2263 R3
JMS 0040 /17211-4040
TAD 0122 /17212-1122 IR
6440 /17213-6440 4
JMS 0011 /17214-4011 I
ISZ 7265 /17215-2265 R5
JMS 0040 /17216-4040
TAD 0122 /17217-1122 IR
6640 /17220-6640 6
JMS 0011 /17221-4011 I
ISZ 7267 /17222-2267 R7
DCA I 7300 /17223-3700 _@
STAT, ISZ 7324 /17224-2324 ST
AND 0124 /17225-0124 AT
ISZ I 0123 /17226-2523 US
CLA /17227-7200 :@
FAILUR, JMS 0006 /17230-4006 F
AND 0111 /17231-0111 AI
TAD I 0025 /17232-1425 LU
ISZ 7205 /17233-2205 RE
CLA /17234-7200 :@
QUICKV, JMS 0021 /17235-4021 Q
ISZ I 0111 /17236-2511 UI
AND 7313 /17237-0313 CK
JMS 0026 /17240-4026 V
AND I 0122 /17241-0522 ER
TAD 0106 /17242-1106 IF
DCA 0100 /17243-3100 Y@
RANNUM, DCA I 7322 /17244-3722 _R
AND 0116 /17245-0116 AN
JMS 0016 /17246-4016 N
ISZ I 0115 /17247-2515 UM
JMS 0001 /17250-4001 A
ISZ 7207 /17251-2207 RG
6240 /17252-6240 2
AND 0000 /17253-0000 @@
DATAEX, AND I 7220 /17254-0620 FP
ISZ 0055 /17255-2055 P-
IAC /17256-7001 8A
JMS 0004 /17257-4004 D
AND 0124 /17260-0124 AT
AND 0140 /17261-0140 A
AND I 0130 /17262-0530 EX
JMP I 7200 /17263-5600 .@
INSERR, DCA I 7306 /17264-3706 _F
ISZ 0020 /17265-2020 PP
JMP I 0170 /17266-5570 -8
AND 0140 /17267-0140 A
TAD 0116 /17270-1116 IN
ISZ 7324 /17271-2324 ST
ISZ 7240 /17272-2240 R
ISZ I 0005 /17273-2405 TE
ISZ 7324 /17274-2324 ST
JMS 0006 /17275-4006 F
AND 0111 /17276-0111 AI
TAD I 0005 /17277-1405 LE
AND I 0040 /17300-0440 D
JMS 0040 /17301-4040
AND 0000 /17302-0000 @@
EXPAPT, DCA I 7305 /17303-3705 _E
DCA 0020 /17304-3020 XP
AND I 0103 /17305-0503 EC
ISZ I 0005 /17306-2405 TE
AND I 0040 /17307-0440 D
AND 0120 /17310-0120 AP
ISZ I 0040 /17311-2440 T
AND 0116 /17312-0116 AN
AND I 0040 /17313-0440 D
ISZ 7324 /17314-2324 ST
AND 0124 /17315-0124 AT
ISZ I 0123 /17316-2523 US
CLA /17317-7200 :@
STATER, JMS 0042 /17320-4042 "
ISZ 7324 /17321-2324 ST
AND 0124 /17322-0124 AT
ISZ I 0123 /17323-2523 US
JMS 0005 /17324-4005 E
ISZ 7222 /17325-2222 RR
JMS 7200 /17326-4200 "@
APTERR, DCA I 7314 /17327-3714 _L
TAD I 7303 /17330-1703 OC
AND 0124 /17331-0124 AT
TAD 0117 /17332-1117 IO
TAD I 7240 /17333-1640 N
AND 0106 /17334-0106 AF
ISZ I 0005 /17335-2405 TE
ISZ 7240 /17336-2240 R
AND 0120 /17337-0120 AP
ISZ I 0040 /17340-2440 T
TAD I 0117 /17341-1517 MO
AND I 0011 /17342-0411 DI
AND I 7211 /17343-0611 FI
AND I 0104 /17344-0504 ED
DCA I 7300 /17345-3700 _@
INST, JMS 0011 /17346-4011 I
TAD I 7223 /17347-1623 NS
ISZ I 0072 /17350-2472 T:
AND 0000 /17351-0000 @@
YORN, SPA SNA CLA /17352-7750 ?(
DCA 0140 /17353-3140 Y
TAD I 7322 /17354-1722 OR
JMS 0016 /17355-4016 N
JMP 0172 /17356-5172 ):
AND 0000 /17357-0000 @@
JMPERR, DCA I 7306 /17360-3706 _F
ISZ 0020 /17361-2020 PP
JMP I 0170 /17362-5570 -8
AND 0140 /17363-0140 A
TAD 7225 /17364-1225 JU
TAD I 0120 /17365-1520 MP
JMS 0006 /17366-4006 F
AND 0111 /17367-0111 AI
TAD I 0005 /17370-1405 LE
AND I 0040 /17371-0440 D
AND 0000 /17372-0000 @@
ADDR, JMS 0001 /17373-4001 A
AND I 0004 /17374-0404 DD
ISZ 7272 /17375-2272 R:
AND 0000 /17376-0000 @@
ULINE, DCA I 7300 /17377-3700 _@
ILLINT, DCA I 7511 /17400-3711 _I
TAD I 0014 /17401-1414 LL
AND I 0107 /17402-0507 EG
AND 0114 /17403-0114 AL
JMS 0011 /17404-4011 I
TAD I 7424 /17405-1624 NT
AND I 0122 /17406-0522 ER
ISZ 7425 /17407-2225 RU
ISZ 0024 /17410-2024 PT
DCA I 7500 /17411-3700 _@
ISTNOS, DCA I 7506 /17412-3706 _F
ISZ 0011 /17413-2011 PI
ISZ 7524 /17414-2324 ST
JMS 0004 /17415-4004 D
TAD 0104 /17416-1104 ID
JMS 0016 /17417-4016 N
TAD I 7524 /17420-1724 OT
JMS 0023 /17421-4023 S
TAD 7511 /17422-1311 KI
ISZ 0037 /17423-2037 P_
AND 0000 /17424-0000 @@
FPMOD1, JMP I 0106 /17425-5506 -F
ISZ 0056 /17426-2056 P.
JMS 0015 /17427-4015 M
TAD I 7504 /17430-1704 OD
AND I 0137 /17431-0537 E_
AND 0000 /17432-0000 @@
DPMOD1, JMP I 0104 /17433-5504 -D
ISZ 0056 /17434-2056 P.
JMS 0015 /17435-4015 M
TAD I 7504 /17436-1704 OD
AND I 0137 /17437-0537 E_
AND 0000 /17440-0000 @@
EPMOD1, JMP I 0105 /17441-5505 -E
ISZ 0056 /17442-2056 P.
JMS 0015 /17443-4015 M
TAD I 7504 /17444-1704 OD
AND I 0137 /17445-0537 E_
AND 0000 /17446-0000 @@
TIMO, ISZ I 0011 /17447-2411 TI
TAD I 0105 /17450-1505 ME
JMS 0017 /17451-4017 O
ISZ I 0124 /17452-2524 UT
JMS 0000 /17453-4000 @
PASS, JMS 0020 /17454-4020 P
AND 0123 /17455-0123 AS
ISZ 7572 /17456-2372 S:
AND 0000 /17457-0000 @@
DJFPB, DCA I 7504 /17460-3704 _D
TAD 7406 /17461-1206 JF
ISZ 0002 /17462-2002 PB
CLA /17463-7200 :@
INSTST, AND I 7420 /17464-0620 FP
ISZ 0055 /17465-2055 P-
IAC /17466-7001 8A
JMS 0011 /17467-4011 I
TAD I 7423 /17470-1623 NS
ISZ I 0022 /17471-2422 TR
JMP I 7440 /17472-5640 .
ISZ I 0005 /17473-2405 TE
ISZ 7524 /17474-2324 ST
AND 0000 /17475-0000 @@
BUCOER, DCA I 7542 /17476-3742 _"
AND 7425 /17477-0225 BU
AND I 7406 /17500-0606 FF
JMS 0003 /17501-4003 C
TAD I 7515 /17502-1715 OM
ISZ 0001 /17503-2001 PA
ISZ 7405 /17504-2205 RE
JMS 0005 /17505-4005 E
ISZ 7422 /17506-2222 RR
TAD I 7522 /17507-1722 OR
JMS 7400 /17510-4200 "@
APTTBL, NOP /17511-7401 <A
ISZ 0024 /17512-2024 PT
JMS 0024 /17513-4024 T
AND 0102 /17514-0102 AB
TAD I 0005 /17515-1405 LE
CLA /17516-7600 >@
LOCS, TAD I 0017 /17517-1417 LO
AND 7572 /17520-0372 C:
AND 0000 /17521-0000 @@
EQTXT, SMA /17522-7500 =@
RUNING, DCA I 7522 /17523-3722 _R
ISZ I 0116 /17524-2516 UN
TAD I 7411 /17525-1611 NI
TAD I 7407 /17526-1607 NG
JMS 0000 /17527-4000 @
EXPBAS, DCA I 7505 /17530-3705 _E
DCA 0020 /17531-3020 XP
JMS 0002 /17532-4002 B
AND 0123 /17533-0123 AS
AND I 0140 /17534-0540 E
ISZ 7405 /17535-2205 RE
ISZ 7525 /17536-2325 SU
TAD I 0024 /17537-1424 LT
ISZ 7537 /17540-2337 S_
AND 0000 /17541-0000 @@
ACTBAS, DCA I 7501 /17542-3701 _A
AND 7524 /17543-0324 CT
JMS 0002 /17544-4002 B
AND 0123 /17545-0123 AS
AND I 0140 /17546-0540 E
ISZ 7405 /17547-2205 RE
ISZ 7525 /17550-2325 SU
TAD I 0024 /17551-1424 LT
ISZ 7537 /17552-2337 S_
AND 0000 /17553-0000 @@
FLDXX, AND I 7411 /17554-0611 FI
AND I 0114 /17555-0514 EL
AND I 0040 /17556-0440 D
XXFLD, DCA 0030 /17557-3030 XX
JMS 0000 /17560-4000 @
RELOCT, JMS 0022 /17561-4022 R
AND I 0114 /17562-0514 EL
TAD I 7503 /17563-1703 OC
AND 0000 /17564-0000 @@
MQA MQL CLA DCM /17565-7775 ?=
6737 /17566-6737 7_
AND 0017 /17567-0017 @O
CLA LSR /17570-7617 >O
AND 7400 /17571-0200 B@
JMP 7400 /17572-5200 *@
ISZ I 0153 /17573-2553 U+
JMS I 7447 /17574-4647 &'
DCA I 7537 /17575-3737 __
6022 /17576-6022 0R
ISZ I 7400 /17577-2600 V@
FIELD 0
*0000
AND 0103 /00000-0303 CC
JMP I INT /00001-5402 ,B
INT, INTRPT /00002-0300 C@
CDF10, AND 0000 /00003-0000 @@
CIF10, AND 0000 /00004-0000 @@
NOEX, AND 0000 /00005-0000 @@
AND 0102 /00006-0302 CB
AND 0000 /00007-0000 @@
AND 0000 /00010-0000 @@
AND 0000 /00011-0000 @@
AND 0000 /00012-0000 @@
AND 0000 /00013-0000 @@
AND 0000 /00014-0000 @@
AND 0000 /00015-0000 @@
AND 0000 /00016-0000 @@
AND 0000 /00017-0000 @@
SW, AND 0000 /00020-0000 @@ /SOFTWARE SWITCH
SOFT, AND 0007 /00021-0007 @G /NEG HARDWARE SWITCH
MODEX8, AND 0000 /00022-0000 @@
AND 0151 /00023-0151 A)
APT, AND 0000 /00024-0000 @@
FPC, 5400 /00025-5400 ,@
INDXAD, INDEX /00026-0040 @
BASEAD, BASE0 /00027-6000 0@
OPADD, 0000 /00030-0000 @@
FAC, AND 0000 /00031-0000 @@
FMS, AND 0000 /00032-0000 @@
FLS, AND 0000 /00033-0000 @@
AND 0000 /00034-0000 @@
AND 0000 /00035-0000 @@
AND 0000 /00036-0000 @@
MQA MQL CLA SAM /00037-7777 ??
INDEX, AND 0000 /00040-0000 @@
AND 0000 /00041-0000 @@
AND 0000 /00042-0000 @@
AND 0000 /00043-0000 @@
AND 0000 /00044-0000 @@
AND 0000 /00045-0000 @@
AND 0000 /00046-0000 @@
AND 0000 /00047-0000 @@
AND 0000 /00050-0000 @@
AND 0000 /00051-0000 @@
JMS 0000 /00052-4000 @
JMS 0000 /00053-4000 @
JMS 0000 /00054-4000 @
MES, MESG /00055-3000 X@
MES10, MESG10 /00056-3145 Y%
AND 0017 /00057-0217 BO
VT, VTAB /00060-6543 5#
PUN, PUNCH /00061-3106 YF
RDECHO, READEC /00062-3135 Y]
GETSW, SWGET /00063-7273 :;
LPBCK, LOOP /00064-6600 6@
DIGS, DIGITS /00065-7304 ;D
F0, F0000 /00066-2610 VH
F7, F7777 /00067-2616 VN
F25, F2525 /00070-2625 VU
F52, F5252 /00071-2634 V\
FXX, FXXXX /00072-2643 V#
TSTIT, TEST /00073-2701 WA
CHKIT, CHECK /00074-7000 8@
CLEARX, CLINDX /00075-2653 V+
CTCG, CTRLCG /00076-7200 :@
CTQS, CTRLQS /00077-7225 :U
INIT0, I0 /00100-7341 ;!
CHKBP, CHECKB /00101-6633 6[
READCH, READC /00102-3115 YM
DCA I 0134 /00103-3534 ]\
X8, CHKX8 /00104-3562 ]2
C1, 1 /00105-0001 @A
C2, 2 /00106-0002 @B
C4, 4 /00107-0004 @D
C7, 7 /00110-0007 @G
C10, 10 /00111-0010 @H
AND 0020 /00112-0020 @P
XAPT, APT /00113-0024 @T
C40, 40 /00114-0040 @
C70, 70 /00115-0070 @8
C100, 100 /00116-0100 A@
C200, 200 /00117-0200 B@
C240, 240 /00120-0240 B
C260, 260 /00121-0260 B0
C277, AND 0077 /00122-0277 B?
AND I 0177 /00123-0777 G?
TAD 0000 /00124-1000 H@
ISZ 0000 /00125-2000 P@
C2525, 2525 /00126-2525 UU
NOP /00127-7000 8@
C5252, 5252 /00130-5252 **
SMA CLA /00131-7700 ?@
M4, SPA SNA SZL CLA OSR /00132-7774 ?<
GOI, TESTI /00133-0400 D@
GO1, RECOVR /00134-0241 B!
AND 0000 /00135-0000 @@
AND 0000 /00136-0000 @@
CHTMP, AND 0000 /00137-0000 @@
INCHAR, 0000 /00140-0000 @@
DPMODE, AND 0000 /00141-0000 @@
FBITS, AND 0000 /00142-0000 @@
EPMODE, AND 0000 /00143-0000 @@
FUNC, 215 /00144-0215 BM
PCLOC, AND 0000 /00145-0000 @@
AND 0000 /00146-0000 @@
COUNT, AND 0000 /00147-0000 @@
AND 0000 /00150-0000 @@
AND 0000 /00151-0000 @@
AND 0000 /00152-0000 @@
AND 0000 /00153-0000 @@
AND 0000 /00154-0000 @@
SPA SNA SZL CLA /00155-7770 ?8
GTFLG, AND 0000 /00156-0000 @@
AND 0000 /00157-0000 @@
AND 0000 /00160-0000 @@
AND 0000 /00161-0000 @@
ACSAV, AND 0000 /00162-0000 @@
AND 0000 /00163-0000 @@
AND 0004 /00164-0004 @D
AND 0077 /00165-0077 @?
SPA SNA SZL CLA HLT /00166-7772 ?:
SMA SZA CLA OSR HLT /00167-7746 ?&
MQL SAM /00170-7477 <?
SMA SZA SNL CLA OSR HLT /00171-7766 ?6
SPA SNA SZL CLA OSR HLT /00172-7776 ?>
SMA SNL HLT /00173-7522 =R
AND 0040 /00174-0240 B
SMA SZA /00175-7540 =
INTLOC, AND 0000 /00176-0000 @@
AND 0000 /00177-0000 @@
STRT, CAF /00200-6007 0G
IOF /00201-6002 0B
CIF CDF 0 /00202-6203 2C
JMS I INIT0 /00203-4500 %@
STRTO, TAD (JMP I GO1 /00204-1377 K?
DCA 0000 /00205-3000 X@
TAD MODEX8 /00206-1022 HR
SPA CLA /00207-7710 ?H
JMP I (GO2 /00210-5776 />
JMS I MES /00211-4455 $-
LINE1 /00212-7366 ;6
JMS I MES /00213-4455 $-
PRODUC /00214-7411 <I
JMS I LPBCK /00215-4464 $4
GO /00216-0217 BO
GO, CAF /00217-6007 0G
CIF CDF 0 /00220-6203 2C
DCA NOEX /00221-3005 XE
JMS I INIT0 /00222-4500 %@
DCA I (541 /00223-3775 _=
CDF 10 /00224-6211 2I
DCA I 0006 /00225-3406 \F
CDF 0 /00226-6201 2A
JMS I MES /00227-4455 $-
TYPEI /00230-7423 <S
JMS I MES /00231-4455 $-
TYPEE /00232-7446 <&
JMS I MES /00233-4455 $-
TYPEB /00234-7470 <8
TAD ("* /00235-1374 K<
JMS I PUN /00236-4461 $1
JMS I RDECHO /00237-4462 $2
DCA FUNC /00240-3144 Y$
RECOVR, CLA CLL /00241-7300 ;@
TAD (JMP I GO1 /00242-1377 K?
DCA 0000 /00243-3000 X@
TAD FUNC /00244-1144 I$
TAD (-215 /00245-1373 K;
SZA CLA /00246-7640 >
JMP NCR /00247-5253 *+
ISZ I (RELDON /00250-2772 W:
JMS I VT /00251-4460 $0
JMP I GOI /00252-5533 -[
NCR, TAD FUNC /00253-1144 I$
TAD (-"I /00254-1371 K9
SZA CLA /00255-7640 >
JMP NI /00256-5261 *1
ISZ NOEX /00257-2005 PE
JMP I GOI /00260-5533 -[
NI, TAD FUNC /00261-1144 I$
TAD (-"B /00262-1370 K8
SNA CLA /00263-7650 >(
JMP YB /00264-5276 *>
TAD FUNC /00265-1144 I$
TAD (-"E /00266-1367 K7
SZA CLA /00267-7640 >
JMP GO /00270-5217 *O
JMS I VT /00271-4460 $0
ISZ NOEX /00272-2005 PE
JMS I (GOE /00273-4766 '6
CIF CDF 10 /00274-6213 2K
JMP STRT10 /00275-5200 *@
YB, JMS I (GOE /00276-4766 '6
JMP I GOI /00277-5533 -[
INTRPT, JMS I (RSAV /00300-4765 '5
GTF /00301-6004 0D
DCA GTFLG /00302-3156 Y.
6102 /00303-6102 1B
SKP /00304-7410 <H
JMP I (PWRSKP /00305-5764 /4
KSF /00306-6031 0Y
JMP NKBD /00307-5316 +N
KRB /00310-6036 0^
AND (177 /00311-0363 C3
TAD C200 /00312-1117 IO
DCA INCHAR /00313-3140 Y
JMS I CTCG /00314-4476 $>
JMP INTEND /00315-5335 +]
NKBD, FPINT /00316-6551 5)
JMP .+3 /00317-5322 +R
CIF CDF 10 /00320-6213 2K
JMP I (INTRP1 /00321-5762 /2
TSF /00322-6041 0!
JMP NOTTY /00323-5326 +V
TCF /00324-6042 0"
JMP INTEND /00325-5335 +]
NOTTY, TAD (.+4 /00326-1361 K1
DCA PCLOC /00327-3145 Y%
JMS I X8 /00330-4504 %D
JMS I MES10 /00331-4456 $.
ILLINT /00332-7400 <@
CAF /00333-6007 0G
JMP RECOVR /00334-5241 *!
INTEND, JMS I (LDMQ /00335-4760 '0
TAD GTFLG /00336-1156 I.
RTF /00337-6005 0E
CLA /00340-7200 :@
TAD ACSAV /00341-1162 I2
JMP I INTLOC /00342-5576 ->
RUNIT, AND 0000 /00343-0000 @@
TAD (FPC1 /00344-1357 K/
DCA FPC /00345-3025 XU
CLA CLL CML RAR /00346-7330 ;X
DCA EPMODE /00347-3143 Y#
DCA DPMODE /00350-3141 Y!
JMS I 0356 /00351-4756 '.
JMP I RUNIT /00352-5743 /#
AND 0165 /00353-0165 A5
SNA /00354-7450 <(
JMP I 0352 /00355-5752 /*
AND I 0200 /00356-0600 F@
/JMP I 0000 /00357-5400 ,@
/CLA CMA CML IAC /00360-7261 :1
/AND 0332 /00361-0332 CZ
/TAD 0000 /00362-1000 H@
/AND 0177 /00363-0177 A?
/CLA CMA CML RTL /00364-7266 :6
/CLA CMA RAR /00365-7250 :(
/DCA I 0000 /00366-3400 \@
/MQL DPIC /00367-7473 <;
/SNA SZL OSR HLT /00370-7476 <>
/MQL SWBA /00371-7467 <7
/DCA I 0054 /00372-3454 \,
/MQA MQL DAD /00373-7563 =3
/AND 0252 /00374-0252 B*
/AND I 0141 /00375-0541 E!
/AND I 0001 /00376-0401 DA
/JMP I 0134 /00377-5534 -\
PAGE
TESTI, JMS I (HEAD1 /00400-4777 '?
GO2, TAD 0155 /00401-1155 I-
DCA 0153 /00402-3153 Y+
MQL CLA /00403-7621 >Q
DCA FBITS /00404-3142 Y"
DCA 0157 /00405-3157 Y/
JMS SETF0 /00406-4343 ##
DCA 0157 /00407-3157 Y/
JMS I (LNK26 /00410-4776 '>
0000 /00411-0000 @@
JMS I (RUNIT /00412-4775 '=
JMS SETF0 /00413-4343 ##
TAD C1 /00414-1105 IE
DCA FBITS /00415-3142 Y"
JMS I (LNK26 /00416-4776 '>
0011 /00417-0011 @I FDWX F=1 X=1
JMS I (RUNIT /00420-4775 '=
JMS SETF0 /00421-4343 ##
TAD C100 /00422-1116 IN
DCA FBITS /00423-3142 Y"
JMS I (LNK26 /00424-4776 '>
0002 /00425-0002 @B DW=1
JMS I (SETF1 /00426-4774 '<
JMS I (RUNIT /00427-4775 '=
JMS SETF0 /00430-4343 ##
TAD (0101 /00431-1373 K;
DCA FBITS /00432-3142 Y"
JMS I (LNK26 /00433-4776 '>
0000 /00434-0000 @@
JMS I (LNK26 /00435-4776 '>
0013 /00436-0013 @K F=1 DW=1 X=1
JMS I (SETF1 /00437-4774 '<
JMS I (RUNIT /00440-4775 '=
JMS SETF0 /00441-4343 ##
TAD C10 /00442-1111 II
DCA FBITS /00443-3142 Y"
JMS I (LNK26 /00444-4776 '>
0000 /00445-0000 @@
JMS I (RUNIT /00446-4775 '=
JMS SETF0 /00447-4343 ##
TAD (0011 /00450-1372 K:
DCA FBITS /00451-3142 Y"
JMS I (LNK26 /00452-4776 '>
0011 /00453-0011 @I
JMS I (RUNIT /00454-4775 '=
JMS SETF0 /00455-4343 ##
TAD (0110 /00456-1371 K9
DCA FBITS /00457-3142 Y"
JMS I (LNK26 /00460-4776 '>
0002 /00461-0002 @B
JMS I (SETF1 /00462-4774 '<
JMS I (RUNIT /00463-4775 '=
JMS SETF0 /00464-4343 ##
TAD (0111 /00465-1370 K8
DCA FBITS /00466-3142 Y"
JMS I (LNK26 /00467-4776 '>
0000 /00470-0000 @@
JMS I (LNK26 /00471-4776 '>
0013 /00472-0013 @K
JMS I (SETF1 /00473-4774 '<
JMS I (RUNIT /00474-4775 '=
JMS SETF0 /00475-4343 ##
CIF CDF 10 /00476-6213 2K
JMS I 0542 /00477-4742 '"
JMS I (X6500 /00500-4767 '7
2153 /00501-2153 Q+
JMP 0403 /00502-5203 *C
TAD MODEX8 /00503-1022 HR
SPA CLA /00504-7710 ?H
JMP 0530 /00505-5330 +X
ISZ 0541 /00506-2341 S!
NOP /00507-7000 8@
JMS I GETSW /00510-4463 $3
AND C40 /00511-0114 AL
SZA CLA /00512-7640 >
JMP 0525 /00513-5325 +U
JMS I MES10 /00514-4456 $.
DJFPB /00515-7460 <0
JMS I MES10 /00516-4456 $.
INSTST /00517-7464 <4
JMS I MES10 /00520-4456 $.
PASS /00521-7454 <,
TAD 0541 /00522-1341 K!
JMS I DIGS /00523-4465 $5
JMS I VT /00524-4460 $0
TAD NOEX /00525-1005 HE
SZA CLA /00526-7640 >
JMP 0532 /00527-5332 +Z
CIF CDF 10 /00530-6213 2K
JMP I (STRTO /00531-5766 /6
JMS I GETSW /00532-4463 $3
AND (0400 /00533-0365 C5
SNA CLA /00534-7650 >(
JMP 0401 /00535-5201 *A
JMS I LPBCK /00536-4464 $4
AND I 0140 /00537-0540 E
JMP 0400 /00540-5200 *@
AND 0000 /00541-0000 @@
DCA I 0000 /00542-3400 \@
SETF0, AND 0000 /00543-0000 @@
TAD (CDF 0 /00544-1364 K4
DCA I (CDF1 /00545-3763 _3
TAD (CDF 0 /00546-1364 K4
DCA I (CDF2 /00547-3762 _2
TAD (CDF 0 /00550-1364 K4
DCA I (CDF3 /00551-3761 _1
ISZ 0157 /00552-2157 Q/
CIF CDF 10 /00553-6213 2K
JMS I .+2 /00554-4756 '.
JMP I SETF0 /00555-5743 /#
CLEAR1 /00556-2327 SW
JMS I 0000 /00557-4400 $@
/ISZ I 0101 /00560-2501 UA
/6650 /00561-6650 6(
/ISZ I 0473 /00562-2673 V;
/6703 /00563-6703 7C
/CDF 0 /00564-6201 2A
/AND I 0000 /00565-0400 D@
/AND 0404 /00566-0204 BD
/6500 /00567-6500 5@
/AND 0111 /00570-0111 AI
/AND 0110 /00571-0110 AH
/AND 0011 /00572-0011 @I
/AND 0101 /00573-0101 AA
/6730 /00574-6730 7X
/AND 0543 /00575-0343 C#
/DCA I 0153 /00576-3553 ]+
/7354 /00577-7354 ;,
PAGE
AND 0000 /00600-0000 @@
FPICL /00601-6552 5*
JMP 0604 /00602-5204 *D
JMP I 0600 /00603-5600 .@
JMS I F7 /00604-4467 $7
JMS I TSTIT /00605-4473 $;
5411 /00606-5411 ,I
JMS I CHKIT /00607-4474 $<
3600 /00610-3600 ^@
JMS I LPBCK /00611-4464 $4
0604 /00612-0604 FD
JMS I F0 /00613-4466 $6
TAD C1 /00614-1105 IE
DCA 0036 /00615-3036 X^
JMS I TSTIT /00616-4473 $;
TFCLA /00617-5413 ,K
JMS I CHKIT /00620-4474 $<
3611 /00621-3611 ^I
JMS I LPBCK /00622-4464 $4
0613 /00623-0613 FK
JMS I F7 /00624-4467 $7
JMS I TSTIT /00625-4473 $;
TFNEG /00626-5413 ,K
JMS I CHKIT /00627-4474 $<
3622 /00630-3622 ^R
JMS I LPBCK /00631-4464 $4
0624 /00632-0624 FT
JMS I F25 /00633-4470 $8
JMS I TSTIT /00634-4473 $;
TFNEG3 /00635-5415 ,M
JMS I CHKIT /00636-4474 $<
3633 /00637-3633 ^[
JMS I LPBCK /00640-4464 $4
0633 /00641-0633 F[
JMS I F0 /00642-4466 $6
CLA CLL IAC /00643-7301 ;A
DCA 0036 /00644-3036 X^
JMS I TSTIT /00645-4473 $;
TFNORM /00646-5421 ,Q
JMS I CHKIT /00647-4474 $<
DCA I 0644 /00650-3644 ^$
JMS I LPBCK /00651-4464 $4
0642 /00652-0642 F"
JMS I F0 /00653-4466 $6
TAD 0777 /00654-1377 K?
DCA 0036 /00655-3036 X^
JMS I TSTIT /00656-4473 $;
TFNORM /00657-5421 ,Q
JMS I CHKIT /00660-4474 $<
DCA I 0655 /00661-3655 ^-
JMS I LPBCK /00662-4464 $4
0653 /00663-0653 F+
JMS I F7 /00664-4467 $7
CLA CLL CMA RAL /00665-7344 ;$
DCA 0036 /00666-3036 X^
JMS I TSTIT /00667-4473 $;
TFNORM /00670-5421 ,Q
JMS I CHKIT /00671-4474 $<
DCA I 0666 /00672-3666 ^6
JMS I LPBCK /00673-4464 $4
0664 /00674-0664 F4
JMS I F0 /00675-4466 $6
CLA CLL CML RAR /00676-7330 ;X
DCA FMS /00677-3032 XZ
JMS I TSTIT /00700-4473 $;
TFNORM /00701-5421 ,Q
JMS I CHKIT /00702-4474 $<
DCA I 0677 /00703-3677 ^?
JMS I LPBCK /00704-4464 $4
0675 /00705-0675 F=
JMS I F7 /00706-4467 $7
JMS I CLEARX /00707-4475 $=
CLA CLL IAC /00710-7301 ;A
JMS I 0103 /00711-4503 %C
AND 0040 /00712-0040 @
JMS I TSTIT /00713-4473 $;
TXTA0 /00714-5423 ,S
JMS I CHKIT /00715-4474 $<
DCA I 0710 /00716-3710 _H
JMS I LPBCK /00717-4464 $4
0706 /00720-0706 GF
JMS I F25 /00721-4470 $8
JMS I CLEARX /00722-4475 $=
CLA CLL CMA RAL /00723-7344 ;$
JMS I 0103 /00724-4503 %C
AND 0047 /00725-0047 @'
JMS I TSTIT /00726-4473 $;
TXTA7 /00727-5425 ,U
JMS I CHKIT /00730-4474 $<
DCA I 0721 /00731-3721 _Q
JMS I LPBCK /00732-4464 $4
0721 /00733-0721 GQ
JMS I F0 /00734-4466 $6
JMS I CLEARX /00735-4475 $=
TAD 0776 /00736-1376 K>
JMS I 0103 /00737-4503 %C
AND 0041 /00740-0041 @!
CLA CLL IAC /00741-7301 ;A
DCA 0036 /00742-3036 X^
JMS I TSTIT /00743-4473 $;
TALN1 /00744-5427 ,W
JMS I CHKIT /00745-4474 $<
DCA I 0732 /00746-3732 _Z
JMS I LPBCK /00747-4464 $4
0734 /00750-0734 G\
JMS I F0 /00751-4466 $6
JMS I 0075 /00752-4475 $=
TAD 0775 /00753-1375 K=
JMS I 0103 /00754-4503 %C
AND 0042 /00755-0042 @"
CLA CLL CML RTR /00756-7332 ;Z
DCA FMS /00757-3032 XZ
JMS I TSTIT /00760-4473 $;
TALN2 /00761-5431 ,Y
JMS I CHKIT /00762-4474 $<
DCA I 0743 /00763-3743 _#
JMS I LPBCK /00764-4464 $4
0751 /00765-0751 G)
JMP I 0774 /00766-5774 /<
AND I 0777 /00767-0777 G?
AND 0730 /00770-0330 CX
CLA DVI /00771-7607 >G
AND 0600 /00772-0200 B@
SMA SZA CLA OSR HLT /00773-7746 ?&
TAD 0000 /00774-1000 H@
AND 0072 /00775-0072 @:
SMA CLA OSR HLT /00776-7706 ?F
AND 0005 /00777-0005 @E
PAGE
JMS I F0 /01000-4466 $6
JMS I CLEARX /01001-4475 $=
TAD (72 /01002-1377 K?
JMS I 0103 /01003-4503 %C
AND 0043 /01004-0043 @#
CLA CLL CML IAC RTR /01005-7333 ;[
DCA FMS /01006-3032 XZ
JMS I TSTIT /01007-4473 $;
TALN3 /01010-5433 ,[
JMS I CHKIT /01011-4474 $<
DCA I 1154 /01012-3754 _,
JMS I LPBCK /01013-4464 $4
1000 /01014-1000 H@
JMS I F0 /01015-4466 $6
JMS I CLEARX /01016-4475 $=
TAD (-72 /01017-1376 K>
DCA 0031 /01020-3031 XY
CLA CLL CML RTR /01021-7332 ;Z
DCA FMS /01022-3032 XZ
JMS I TSTIT /01023-4473 $;
TALN0 /01024-5435 ,]
JMS I CHKIT /01025-4474 $<
DCA I 1165 /01026-3765 _5
JMS I LPBCK /01027-4464 $4
1015 /01030-1015 HM
JMS I F0 /01031-4466 $6
JMS I TSTIT /01032-4473 $;
TFLB30 /01033-5437 ,_
JMS I CHKIT /01034-4474 $<
DCA I 1176 /01035-3776 _>
JMS I LPBCK /01036-4464 $4
1031 /01037-1031 HY
JMS I F7 /01040-4467 $7
JMS I TSTIT /01041-4473 $;
TFLB36 /01042-5441 ,!
JMS I CHKIT /01043-4474 $<
JMS 0007 /01044-4007 G
JMS I LPBCK /01045-4464 $4
1040 /01046-1040 H
JMS I F7 /01047-4467 $7
JMS I CLEARX /01050-4475 $=
JMS I TSTIT /01051-4473 $;
TFLX0P /01052-5443 ,#
JMS I CHKIT /01053-4474 $<
JMS 0020 /01054-4020 P
JMS I LPBCK /01055-4464 $4
1047 /01056-1047 H'
JMS I F0 /01057-4466 $6
JMS I CLEARX /01060-4475 $=
CLA CLL IAC /01061-7301 ;A
JMS I 0103 /01062-4503 %C
AND 0044 /01063-0044 @$
JMS I TSTIT /01064-4473 $;
TFLX0 /01065-5446 ,&
JMS I CHKIT /01066-4474 $<
JMS 0031 /01067-4031 Y
JMS I LPBCK /01070-4464 $4
1057 /01071-1057 H/
JMS I F0 /01072-4466 $6
JMS I CLEARX /01073-4475 $=
JMS I TSTIT /01074-4473 $;
TFLX4P /01075-5451 ,)
JMS I CHKIT /01076-4474 $<
JMS 0042 /01077-4042 "
JMS I LPBCK /01100-4464 $4
1072 /01101-1072 H:
JMS I F25 /01102-4470 $8
JMS I CLEARX /01103-4475 $=
CLA CLL IAC /01104-7301 ;A
JMS I 0103 /01105-4503 %C
AND 0044 /01106-0044 @$
JMS I TSTIT /01107-4473 $;
TFLX4P /01110-5451 ,)
JMS I CHKIT /01111-4474 $<
JMS 0053 /01112-4053 +
JMS I LPBCK /01113-4464 $4
1102 /01114-1102 IB
JMS I F25 /01115-4470 $8
JMS I CLEARX /01116-4475 $=
JMS I TSTIT /01117-4473 $;
TFIX4 /01120-5454 ,,
JMS I CHKIT /01121-4474 $<
JMS 0064 /01122-4064 4
JMS I LPBCK /01123-4464 $4
1115 /01124-1115 IM
JMS I F7 /01125-4467 $7
JMS I CLEARX /01126-4475 $=
CLA CLL IAC /01127-7301 ;A
JMS I 0103 /01130-4503 %C
AND 0044 /01131-0044 @$
JMS I TSTIT /01132-4473 $;
TFIX4 /01133-5454 ,,
JMS I CHKIT /01134-4474 $<
JMS 0075 /01135-4075 =
JMS I LPBCK /01136-4464 $4
1125 /01137-1125 IU
JMS I F7 /01140-4467 $7
JMS I CLEARX /01141-4475 $=
CLA CLL IAC /01142-7301 ;A
JMS I 0103 /01143-4503 %C
AND 0044 /01144-0044 @$
JMS I TSTIT /01145-4473 $;
TFIX4P /01146-5456 ,.
JMS I CHKIT /01147-4474 $<
JMS 0106 /01150-4106 !F
JMS I LPBCK /01151-4464 $4
1140 /01152-1140 I
JMS I F25 /01153-4471 $9
JMS I (CLRBP /01154-4775 '=
JMS I TSTIT /01155-4473 $;
FSB116 /01156-5460 ,0
JMS I CHKBP /01157-4501 %A
JMS 0130 /01160-4130 !X
JMS I CHKIT /01161-4474 $<
JMS 0117 /01162-4117 !O
JMS I LPBCK /01163-4464 $4
1153 /01164-1153 I+
JMP I 1174 /01165-5774 /<
TAD 1053 /01166-1253 J+
TAD 0074 /01167-1074 H<
DCA 0034 /01170-3034 X\
JMS I 1176 /01171-4776 '>
TAD 0073 /01172-1073 H;
JMS I 0023 /01173-4423 $S
/TAD 1000 /01174-1200 J@
/ISZ I 1065 /01175-2665 V5
/SMA CLA OSR HLT /01176-7706 ?F
/AND 0072 /01177-0072 @:
PAGE
JMS I F25 /01200-4470 $8
DCA 0031 /01201-3031 XY
JMS I TSTIT /01202-4473 $;
FAB066 /01203-5462 ,2
JMS I CHKIT /01204-4474 $<
JMS 0136 /01205-4136 !^
JMS I LPBCK /01206-4464 $4
1200 /01207-1200 J@
JMS I F0 /01210-4466 $6
CLA CLL IAC /01211-7301 ;A
DCA 0036 /01212-3036 X^
JMS I TSTIT /01213-4473 $;
FAB110 /01214-5464 ,4
JMS I CHKIT /01215-4474 $<
JMS 0147 /01216-4147 !'
JMS I LPBCK /01217-4464 $4
1210 /01220-1210 JH
JMS I F7 /01221-4467 $7
CLA CLL CMA RTL /01222-7346 ;&
DCA 0036 /01223-3036 X^
DCA 0031 /01224-3031 XY
JMS I TSTIT /01225-4473 $;
FAB110 /01226-5464 ,4
JMS I CHKIT /01227-4474 $<
JMS 0160 /01230-4160 !0
JMS I LPBCK /01231-4464 $4
1221 /01232-1221 JQ
JMS I F7 /01233-4467 $7
CLA CLL CMA RAR /01234-7350 ;(
DCA FMS /01235-3032 XZ
JMS I TSTIT /01236-4473 $;
FAB124 /01237-5466 ,6
JMS I CHKIT /01240-4474 $<
JMS 0171 /01241-4171 !9
JMS I LPBCK /01242-4464 $4
1233 /01243-1233 J[
TAD 1377 /01244-1377 K?
JMS I FXX /01245-4472 $:
TAD 1376 /01246-1376 K>
DCA FMS /01247-3032 XZ
JMS I TSTIT /01250-4473 $;
FAB132 /01251-5470 ,8
JMS I CHKIT /01252-4474 $<
JMS 1202 /01253-4202 "B
JMS I LPBCK /01254-4464 $4
1244 /01255-1244 J$
TAD 1375 /01256-1375 K=
JMS I FXX /01257-4472 $:
JMS I TSTIT /01260-4473 $;
FAB140 /01261-5472 ,:
JMS I CHKIT /01262-4474 $<
JMS 1213 /01263-4213 "K
JMS I LPBCK /01264-4464 $4
1256 /01265-1256 J.
TAD 1374 /01266-1374 K<
JMS I FXX /01267-4472 $:
JMS I TSTIT /01270-4473 $;
FAB146 /01271-5474 ,<
JMS I CHKIT /01272-4474 $<
JMS 1224 /01273-4224 "T
JMS I LPBCK /01274-4464 $4
1266 /01275-1266 J6
JMS I F7 /01276-4467 $7
CLA CLL CMA RAL /01277-7344 ;$
DCA 0036 /01300-3036 X^
JMS I TSTIT /01301-4473 $;
FAB154 /01302-5476 ,>
JMS I CHKIT /01303-4474 $<
JMS 1235 /01304-4235 "]
JMS I LPBCK /01305-4464 $4
1276 /01306-1276 J>
JMS I F7 /01307-4467 $7
CLA CLL CMA RAR /01310-7350 ;(
DCA FMS /01311-3032 XZ
JMS I TSTIT /01312-4473 $;
FSB162 /01313-5500 -@
JMS I CHKIT /01314-4474 $<
JMS 1246 /01315-4246 "&
JMS I LPBCK /01316-4464 $4
1307 /01317-1307 KG
JMS I F0 /01320-4466 $6
CLA CLL CML RAR /01321-7330 ;X
DCA FMS /01322-3032 XZ
CLA CLL IAC /01323-7301 ;A
DCA 0036 /01324-3036 X^
JMS I TSTIT /01325-4473 $;
FSB170 /01326-5502 -B
JMS I CHKIT /01327-4474 $<
JMS 1257 /01330-4257 "/
JMS I LPBCK /01331-4464 $4
1320 /01332-1320 KP
TAD 1377 /01333-1377 K?
JMS I FXX /01334-4472 $:
JMS I TSTIT /01335-4473 $;
FSB176 /01336-5504 -D
JMS I CHKIT /01337-4474 $<
JMS 1270 /01340-4270 "8
JMS I LPBCK /01341-4464 $4
1333 /01342-1333 K[
JMP I 1373 /01343-5773 /;
JMS I F0 /01344-4466 $6
JMS I CLEARX /01345-4475 $=
CLA CLL IAC /01346-7301 ;A
JMS I 0103 /01347-4503 %C
AND 0044 /01350-0044 @$
JMS I TSTIT /01351-4473 $;
TFLX4P /01352-5451 ,)
JMS I CHKIT /01353-4474 $<
JMP 1241 /01354-5241 *!
JMS I LPBCK /01355-4464 $4
1344 /01356-1344 K$
JMP I 1372 /01357-5772 /:
JMP I 0157 /01360-5557 -/
AND 0000 /01361-0000 @@
TAD 0064 /01362-1064 H4
JMS I 0151 /01363-4551 %)
TAD 0063 /01364-1063 H3
DCA 1375 /01365-3375 [=
JMP 1372 /01366-5372 +:
TAD 0031 /01367-1031 HY
SNA CLA /01370-7650 >(
JMP I 0062 /01371-5462 ,2
TAD I 1301 /01372-1701 OA
TAD I 0000 /01373-1400 L@
TAD 0042 /01374-1042 H"
ISZ 0104 /01375-2104 QD
AND 1210 /01376-0210 BH
JMS 1210 /01377-4210 "H
PAGE
TAD 1577 /01400-1377 K?
JMS I FXX /01401-4472 $:
JMS I TSTIT /01402-4473 $;
FSB204 /01403-5506 -F
JMS I CHKIT /01404-4474 $<
JMS 1501 /01405-4301 #A
JMS I LPBCK /01406-4464 $4
1400 /01407-1400 L@
TAD 1576 /01410-1376 K>
JMS I FXX /01411-4472 $:
JMS I TSTIT /01412-4473 $;
FSB212 /01413-5510 -H
JMS I CHKIT /01414-4474 $<
JMS 1512 /01415-4312 #J
JMS I LPBCK /01416-4464 $4
1410 /01417-1410 LH
TAD 1575 /01420-1375 K=
JMS I FXX /01421-4472 $:
JMS I TSTIT /01422-4473 $;
FSB220 /01423-5512 -J
JMS I CHKIT /01424-4474 $<
JMS 1523 /01425-4323 #S
JMS I LPBCK /01426-4464 $4
1420 /01427-1420 LP
TAD 1574 /01430-1374 K<
JMS I FXX /01431-4472 $:
JMS I TSTIT /01432-4473 $;
FSB226 /01433-5514 -L
JMS I CHKIT /01434-4474 $<
JMS 1534 /01435-4334 #\
JMS I LPBCK /01436-4464 $4
1430 /01437-1430 LX
TAD 1573 /01440-1373 K;
JMS I FXX /01441-4472 $:
JMS I TSTIT /01442-4473 $;
FSB234 /01443-5516 -N
JMS I CHKIT /01444-4474 $<
JMS 1545 /01445-4345 #%
JMS I LPBCK /01446-4464 $4
1440 /01447-1440 L
JMS I F0 /01450-4466 $6
CLA CLL CML RTR /01451-7332 ;Z
DCA 0031 /01452-3031 XY
CLA CLL CML RTR /01453-7332 ;Z
DCA FMS /01454-3032 XZ
JMS I TSTIT /01455-4473 $;
FMB242 /01456-5520 -P
JMS I CHKIT /01457-4474 $<
JMS 1556 /01460-4356 #.
JMS I LPBCK /01461-4464 $4
1450 /01462-1450 L(
JMS I F7 /01463-4467 $7
JMS I TSTIT /01464-4473 $;
FMB250 /01465-5522 -R
JMS I CHKIT /01466-4474 $<
JMS 1567 /01467-4367 #7
JMS I LPBCK /01470-4464 $4
1463 /01471-1463 L3
JMS I F7 /01472-4467 $7
CLA CLL CMA RAR /01473-7350 ;(
DCA FMS /01474-3032 XZ
JMS I TSTIT /01475-4473 $;
FMB256 /01476-5524 -T
JMS I CHKIT /01477-4474 $<
JMS I 0000 /01500-4400 $@
JMS I LPBCK /01501-4464 $4
1472 /01502-1472 L:
JMS I F25 /01503-4470 $8
JMS I TSTIT /01504-4473 $;
FMB264 /01505-5526 -V
JMS I CHKIT /01506-4474 $<
JMS I 0011 /01507-4411 $I
JMS I LPBCK /01510-4464 $4
1503 /01511-1503 MC
JMS I F52 /01512-4471 $9
JMS I TSTIT /01513-4473 $;
FMB272 /01514-5530 -X
JMS I CHKIT /01515-4474 $<
JMS I 0022 /01516-4422 $R
JMS I LPBCK /01517-4464 $4
1512 /01520-1512 MJ
TAD 1572 /01521-1372 K:
JMS I FXX /01522-4472 $:
JMS I TSTIT /01523-4473 $;
FMB300 /01524-5532 -Z
JMS I CHKIT /01525-4474 $<
JMS I 0033 /01526-4433 $[
JMS I LPBCK /01527-4464 $4
1521 /01530-1521 MQ
JMS I F0 /01531-4466 $6
CLA CLL CMA RAR /01532-7350 ;(
DCA 0031 /01533-3031 XY
CLA CLL CML RTR /01534-7332 ;Z
DCA FMS /01535-3032 XZ
JMS I TSTIT /01536-4473 $;
FDB306 /01537-5534 -\
JMS I CHKIT /01540-4474 $<
JMS I 0044 /01541-4444 $$
JMS I LPBCK /01542-4464 $4
1531 /01543-1531 MY
JMP I 1571 /01544-5771 /9
JMS I F0 /01545-4466 $6
JMS I CLEARX /01546-4475 $=
CLA CLL IAC /01547-7301 ;A
DCA 0031 /01550-3031 XY
CLA CLL CML RTR /01551-7332 ;Z
DCA FMS /01552-3032 XZ
JMS I TSTIT /01553-4473 $;
JMP I 1466 /01554-5666 .6
JMS I CHKIT /01555-4474 $<
JMP 1527 /01556-5327 +W
JMS I LPBCK /01557-4464 $4
1545 /01560-1545 M%
JMP I 1570 /01561-5770 /8
TAD 1556 /01562-1356 K.
JMS I 1576 /01563-4776 '>
TAD 1560 /01564-1360 K0
DCA 1560 /01565-3360 [0
JMP I 1554 /01566-5754 /,
JMS I 0100 /01567-4500 %@
AND I 1403 /01570-0603 FC
TAD I 1400 /01571-1600 N@
ISZ 1545 /01572-2345 S%
AND I 0021 /01573-0421 DQ
DCA 0146 /01574-3146 Y&
6314 /01575-6314 3L
TAD 0042 /01576-1042 H"
ISZ 0104 /01577-2104 QD
PAGE
JMS I F7 /01600-4467 $7
CLA CLL CMA RAR /01601-7350 ;(
DCA FMS /01602-3032 XZ
JMS I TSTIT /01603-4473 $;
FDB314 /01604-5536 -^
JMS I CHKIT /01605-4474 $<
JMS I MES /01606-4455 $-
JMS I LPBCK /01607-4464 $4
1600 /01610-1600 N@
JMS I F0 /01611-4466 $6
TAD C70 /01612-1115 IM
DCA FAC /01613-3031 XY
TAD C2 /01614-1106 IF
DCA FAC+5 /01615-3036 X^
JMS I TSTIT /01616-4473 $;
FDB322 /01617-5540 -
JMS I CHKIT /01620-4474 $<
JMS I F0 /01621-4466 $6
JMS I LPBCK /01622-4464 $4
1611 /01623-1611 NI
JMS I F52 /01624-4471 $9
JMS I TSTIT /01625-4473 $;
FDB330 /01626-5542 -"
JMS I CHKIT /01627-4474 $<
JMS I 0077 /01630-4477 $?
JMS I LPBCK /01631-4464 $4
1624 /01632-1624 NT
TAD 1777 /01633-1377 K?
JMS I FXX /01634-4472 $:
JMS I TSTIT /01635-4473 $;
FDB336 /01636-5544 -$
JMS I CHKIT /01637-4474 $<
JMS I 0110 /01640-4510 %H
JMS I LPBCK /01641-4464 $4
1633 /01642-1633 N[
TAD 1776 /01643-1376 K>
JMS I FXX /01644-4472 $:
JMS I TSTIT /01645-4473 $;
FDB344 /01646-5546 -&
JMS I CHKIT /01647-4474 $<
JMS I 0121 /01650-4521 %Q
JMS I LPBCK /01651-4464 $4
1643 /01652-1643 N#
JMS I F25 /01653-4470 $8
JMS I 1775 /01654-4775 '=
JMS I TSTIT /01655-4473 $;
SLA116 /01656-5556 -.
JMS I CHKBP /01657-4501 %A
JMS I 0143 /01660-4543 %#
JMS I CHKIT /01661-4474 $<
JMS I 0132 /01662-4532 %Z
JMS I LPBCK /01663-4464 $4
1653 /01664-1653 N+
TAD 1774 /01665-1374 K<
JMS I FXX /01666-4472 $:
JMS I 1775 /01667-4775 '=
JMS I TSTIT /01670-4473 $;
SLM116 /01671-5562 -2
JMS I CHKBP /01672-4501 %A
JMS I 0162 /01673-4562 %2
JMS I CHKIT /01674-4474 $<
JMS I 0151 /01675-4551 %)
JMS I LPBCK /01676-4464 $4
1665 /01677-1665 N5
JMP I 1773 /01700-5773 /;
JMS I F7 /01701-4467 $7
JMS I CLEARX /01702-4475 $=
CLA CLL CML IAC RAL /01703-7325 ;U
JMS I 0103 /01704-4503 %C
AND 0044 /01705-0044 @$
JMS I TSTIT /01706-4473 $;
TFLX4P /01707-5451 ,)
JMS I CHKIT /01710-4474 $<
JMP 1652 /01711-5252 **
JMS I LPBCK /01712-4464 $4
1701 /01713-1701 OA
CLA CLL CML RAR /01714-7330 ;X
DCA DPMODE /01715-3141 Y!
JMS I F7 /01716-4467 $7
JMS I CLEARX /01717-4475 $=
JMS I TSTIT /01720-4473 $;
TFLX0P /01721-5443 ,#
JMS I CHKIT /01722-4474 $<
JMP 1663 /01723-5263 *3
JMS I LPBCK /01724-4464 $4
1714 /01725-1714 OL
JMS I F0 /01726-4466 $6
JMS I CLEARX /01727-4475 $=
CLA CLL CML IAC RAL /01730-7325 ;U
JMS I 0103 /01731-4503 %C
AND 0044 /01732-0044 @$
JMS I TSTIT /01733-4473 $;
TFLX0 /01734-5446 ,&
JMS I CHKIT /01735-4474 $<
JMP 1674 /01736-5274 *<
JMS I LPBCK /01737-4464 $4
1726 /01740-1726 OV
JMS I F0 /01741-4466 $6
JMS I CLEARX /01742-4475 $=
DCA DPMODE /01743-3141 Y!
CLA CLL CML RAR /01744-7330 ;X
DCA EPMODE /01745-3143 Y#
JMS I 1772 /01746-4772 ':
JMS I TSTIT /01747-4473 $;
LEB25P /01750-5402 ,B
JMS I CHKIT /01751-4474 $<
JMP 1705 /01752-5305 +E
JMS I LPBCK /01753-4464 $4
1741 /01754-1741 O!
JMS I F0 /01755-4466 $6
JMS I CLEARX /01756-4475 $=
JMS I 1772 /01757-4772 ':
JMS I TSTIT /01760-4473 $;
LEB25 /01761-5405 ,E
JMS I CHKIT /01762-4474 $<
JMP 1716 /01763-5316 +N
JMS I LPBCK /01764-4464 $4
1755 /01765-1755 O-
JMP I 1771 /01766-5771 /9
RTR /01767-7012 8J
RTR /01770-7012 8J
TAD I 0145 /01771-1545 M%
6512 /01772-6512 5J
ISZ 0000 /01773-2000 P@
7316 /01774-7316 ;N
ISZ I 1665 /01775-2665 V5
TAD I 1706 /01776-1706 OF
6475 /01777-6475 4=
PAGE
JMS I F7 /02000-4467 $7
CLA CLL CML RAR /02001-7330 ;X
DCA 0031 /02002-3031 XY
TAD 0123 /02003-1123 IS
DCA FMS /02004-3032 XZ
CLA CLL CML RTR /02005-7332 ;Z
DCA DPMODE /02006-3141 Y!
JMS I TSTIT /02007-4473 $;
FAB374 /02010-5566 -6
JMS I CHKIT /02011-4474 $<
JMS I 0170 /02012-4570 %8
JMS I LPBCK /02013-4464 $4
2000 /02014-2000 P@
JMS I F7 /02015-4467 $7
CLA CLL CMA RAR /02016-7350 ;(
DCA 0031 /02017-3031 XY
DCA DPMODE /02020-3141 Y!
CLA CLL CMA RAR /02021-7350 ;(
DCA FMS /02022-3032 XZ
JMS I TSTIT /02023-4473 $;
FAB402 /02024-5570 -8
JMS I CHKIT /02025-4474 $<
JMS I 2001 /02026-4601 &A
JMS I LPBCK /02027-4464 $4
2015 /02030-2015 PM
JMS I F25 /02031-4470 $8
JMS I TSTIT /02032-4473 $;
XFDB, FDB410 /02033-5572 -:
JMS I CHKIT /02034-4474 $<
JMS I 2012 /02035-4612 &J
JMS I LPBCK /02036-4464 $4
2031 /02037-2031 PY
JMS I F0 /02040-4466 $6
TAD (HLTPNT /02041-1377 K?
DCA I (TEST /02042-3776 _>
TAD XFDB /02043-1233 J[
DCA FPC /02044-3025 XU
JMS I (TSINIT /02045-4775 '=
TAD XAPT /02046-1113 IK
FPST /02047-6555 5-
JMS I (NOSKP /02050-4774 '<
HLTPNT, FPHLT /02051-6554 5,
FPINT /02052-6551 5)
JMP .-1 /02053-5252 **
JMS I CHKIT /02054-4474 $<
JMS I 2023 /02055-4623 &S
JMS I LPBCK /02056-4464 $4
2040 /02057-2040 P
JMS I F0 /02060-4466 $6
JMS I TSTIT /02061-4473 $;
TJEQ /02062-5574 -<
JMS I CHKIT /02063-4474 $<
JMS I 2034 /02064-4634 &\
JMS I LPBCK /02065-4464 $4
2060 /02066-2060 P0
JMS I F0 /02067-4466 $6
CLA CLL IAC /02070-7301 ;A
DCA 0036 /02071-3036 X^
JMS I TSTIT /02072-4473 $;
TJEQ /02073-5574 -<
JMS I CHKIT /02074-4474 $<
JMS I 2045 /02075-4645 &%
JMS I LPBCK /02076-4464 $4
2067 /02077-2067 P7
JMS I F0 /02100-4466 $6
CLA CLL CML RAR /02101-7330 ;X
DCA FMS /02102-3032 XZ
CLA CLL IAC /02103-7301 ;A
DCA 0036 /02104-3036 X^
JMS I TSTIT /02105-4473 $;
TJEQ /02106-5574 -<
JMS I CHKIT /02107-4474 $<
JMS I 2056 /02110-4656 &.
JMS I LPBCK /02111-4464 $4
2100 /02112-2100 Q@
JMS I F0 /02113-4466 $6
JMS I TSTIT /02114-4473 $;
TJGE /02115-5600 .@
JMS I CHKIT /02116-4474 $<
JMS I 2067 /02117-4667 &7
JMS I LPBCK /02120-4464 $4
2113 /02121-2113 QK
JMS I F0 /02122-4466 $6
CLA CLL IAC /02123-7301 ;A
DCA 0036 /02124-3036 X^
JMS I TSTIT /02125-4473 $;
TJGE /02126-5600 .@
JMS I CHKIT /02127-4474 $<
JMS I 2100 /02130-4700 '@
JMS I LPBCK /02131-4464 $4
2122 /02132-2122 QR
JMS I F0 /02133-4466 $6
CLA CLL CML RAR /02134-7330 ;X
DCA FMS /02135-3032 XZ
CLA CLL IAC /02136-7301 ;A
DCA 0036 /02137-3036 X^
JMS I TSTIT /02140-4473 $;
TJGE /02141-5600 .@
JMS I CHKIT /02142-4474 $<
JMS I 2111 /02143-4711 'I
JMS I LPBCK /02144-4464 $4
2133 /02145-2133 Q[
JMS I F0 /02146-4466 $6
JMS I TSTIT /02147-4473 $;
TJLE /02150-5604 .D
JMS I CHKIT /02151-4474 $<
JMS I 2122 /02152-4722 'R
JMS I LPBCK /02153-4464 $4
2146 /02154-2146 Q&
JMP I 2173 /02155-5773 /;
AND 0000 /02156-0000 @@
CDF 10 /02157-6211 2I
TAD I 0023 /02160-1423 LS
CDF 0 /02161-6201 2A
SNA CLA /02162-7650 >(
JMP I 2156 /02163-5756 /.
TAD 0017 /02164-1017 HO
AND 0105 /02165-0105 AE
SZA /02166-7440 <
TAD 0124 /02167-1124 IT
DCA 0142 /02170-3142 Y"
JMP I 2172 /02171-5772 /:
DCA I 0122 /02172-3522 ]R
/ISZ 2000 /02173-2200 R@
/ISZ I 2137 /02174-2737 W_
/ISZ I 2115 /02175-2715 WM
/ISZ I 2101 /02176-2701 WA
/ISZ 0051 /02177-2051 P)
PAGE
JMS I F0 /02200-4466 $6
CLA CLL CML RAR /02201-7330 ;X
DCA FMS /02202-3032 XZ
CLA CLL IAC /02203-7301 ;A
DCA 0036 /02204-3036 X^
JMS I TSTIT /02205-4473 $;
TJLE /02206-5604 .D
JMS I CHKIT /02207-4474 $<
JMS I 2333 /02210-4733 '[
JMS I LPBCK /02211-4464 $4
2200 /02212-2200 R@
JMS I F0 /02213-4466 $6
CLA CLL IAC /02214-7301 ;A
DCA 0036 /02215-3036 X^
JMS I TSTIT /02216-4473 $;
TJLE /02217-5604 .D
JMS I CHKIT /02220-4474 $<
JMS I 2344 /02221-4744 '$
JMS I LPBCK /02222-4464 $4
2213 /02223-2213 RK
JMS I F0 /02224-4466 $6
JMS I TSTIT /02225-4473 $;
TJNE /02226-5610 .H
JMS I CHKIT /02227-4474 $<
JMS I 2355 /02230-4755 '-
JMS I LPBCK /02231-4464 $4
2224 /02232-2224 RT
JMS I F0 /02233-4466 $6
CLA CLL IAC /02234-7301 ;A
DCA 0036 /02235-3036 X^
JMS I TSTIT /02236-4473 $;
TJNE /02237-5610 .H
JMS I CHKIT /02240-4474 $<
JMS I 2366 /02241-4766 '6
JMS I LPBCK /02242-4464 $4
2233 /02243-2233 R[
JMS I F0 /02244-4466 $6
CLA CLL CML RAR /02245-7330 ;X
DCA FMS /02246-3032 XZ
CLA CLL IAC /02247-7301 ;A
DCA 0036 /02250-3036 X^
JMS I TSTIT /02251-4473 $;
TJNE /02252-5610 .H
JMS I CHKIT /02253-4474 $<
JMS I 2377 /02254-4777 '?
JMS I LPBCK /02255-4464 $4
2244 /02256-2244 R$
JMS I F0 /02257-4466 $6
JMS I TSTIT /02260-4473 $;
TJLT /02261-5614 .L
JMS I CHKIT /02262-4474 $<
JMP 0010 /02263-5010 (H
JMS I LPBCK /02264-4464 $4
2257 /02265-2257 R/
JMS I F0 /02266-4466 $6
CLA CLL IAC /02267-7301 ;A
DCA 0036 /02270-3036 X^
JMS I TSTIT /02271-4473 $;
TJLT /02272-5614 .L
JMS I CHKIT /02273-4474 $<
JMP 0021 /02274-5021 (Q
JMS I LPBCK /02275-4464 $4
2266 /02276-2266 R6
JMS I F7 /02277-4467 $7
JMS I TSTIT /02300-4473 $;
TJLT /02301-5614 .L
JMS I CHKIT /02302-4474 $<
JMP 0032 /02303-5032 (Z
JMS I LPBCK /02304-4464 $4
2277 /02305-2277 R?
JMS I F0 /02306-4466 $6
CLA CLL IAC /02307-7301 ;A
DCA 0036 /02310-3036 X^
JMS I TSTIT /02311-4473 $;
TJGT /02312-5620 .P
JMS I CHKIT /02313-4474 $<
JMP 0043 /02314-5043 (#
JMS I LPBCK /02315-4464 $4
2306 /02316-2306 SF
JMS I F0 /02317-4466 $6
JMS I TSTIT /02320-4473 $;
TJGT /02321-5620 .P
JMS I CHKIT /02322-4474 $<
JMP 0054 /02323-5054 (,
JMS I LPBCK /02324-4464 $4
2317 /02325-2317 SO
JMS I F0 /02326-4466 $6
CLA CLL CML RAR /02327-7330 ;X
DCA FMS /02330-3032 XZ
CLA CLL IAC /02331-7301 ;A
DCA 0036 /02332-3036 X^
JMS I TSTIT /02333-4473 $;
TJGT /02334-5620 .P
JMS I CHKIT /02335-4474 $<
JMP 0065 /02336-5065 (5
JMS I LPBCK /02337-4464 $4
2326 /02340-2326 SV
JMP I 2377 /02341-5777 /?
AND 0000 /02342-0000 @@
CIF 10 /02343-6212 2J
JMS I 2362 /02344-4762 '2
CMA CML IAC RAR /02345-7071 89
JMS I MES10 /02346-4456 $.
JMPERR /02347-7360 ;0
JMS I MES10 /02350-4456 $.
INST /02351-7346 ;&
TAD 0050 /02352-1050 H(
JMS I DIGS /02353-4465 $5
JMS I MES10 /02354-4456 $.
ADDR /02355-7373 ;;
TAD 0051 /02356-1051 H)
JMS I DIGS /02357-4465 $5
JMS I VT /02360-4460 $0
JMP I 2342 /02361-5742 /"
6600 /02362-6600 6@
AND 0000 /02363-0000 @@
CDF 10 /02364-6211 2I
TAD I 0023 /02365-1423 LS
CDF 0 /02366-6201 2A
SNA CLA /02367-7650 >(
JMP I 2363 /02370-5763 /3
JMS 2342 /02371-4342 #"
JMP I 2376 /02372-5776 />
JMP I 2374 /02373-5774 /<
ISZ I 0000 /02374-2400 T@
ISZ I 0003 /02375-2403 TC
/6766 /02376-6766 76
/ISZ I 0000 /02377-2400 T@
PAGE
JMS I F0 /02400-4466 $6
TAD 2566 /02401-1366 K6
DCA FLS /02402-3033 X[
CDF 10 /02403-6211 2I
TAD I 2567 /02404-1767 O7
CDF 0 /02405-6201 2A
AND C1 /02406-0105 AE
DCA FMS /02407-3032 XZ
TAD FMS /02410-1032 HZ
DCA I 2577 /02411-3777 _?
JMS I TSTIT /02412-4473 $;
TJAC /02413-5631 .Y
JMS I CHKIT /02414-4474 $<
JMP 0076 /02415-5076 (>
JMS I LPBCK /02416-4464 $4
2400 /02417-2400 T@
JMS I F25 /02420-4470 $8
JMS I TSTIT /02421-4473 $;
TFNOP /02422-5634 .\
JMS I CHKIT /02423-4474 $<
JMP 0107 /02424-5107 )G
JMS I LPBCK /02425-4464 $4
2420 /02426-2420 TP
JMS I F0 /02427-4466 $6
JMS I TSTIT /02430-4473 $;
TJA /02431-5636 .^
JMS I CHKIT /02432-4474 $<
JMP 0120 /02433-5120 )P
JMS I LPBCK /02434-4464 $4
2427 /02435-2427 TW
JMS I F7 /02436-4467 $7
JMS I TSTIT /02437-4473 $;
TJAL /02440-5641 .!
JMS I CHKIT /02441-4474 $<
JMP 0131 /02442-5131 )Y
JMS I LPBCK /02443-4464 $4
2436 /02444-2436 T^
JMS I F0 /02445-4466 $6
CDF 10 /02446-6211 2I
TAD I 2567 /02447-1767 O7
CDF 0 /02450-6201 2A
DCA 0136 /02451-3136 Y^
TAD 0136 /02452-1136 I^
AND 2576 /02453-0376 C>
SNA /02454-7450 <(
JMP 2471 /02455-5271 *9
TAD 2575 /02456-1375 K=
SNA CLA /02457-7650 >(
JMP 2471 /02460-5271 *9
TAD 0136 /02461-1136 I^
CLL RAR /02462-7110 9H
AND C1 /02463-0105 AE
SNA /02464-7450 <(
CDF 10 /02465-6211 2I
TAD 2574 /02466-1374 K<
DCA I 2570 /02467-3770 _8
CDF 0 /02470-6201 2A
JMS I TSTIT /02471-4473 $;
TJSR /02472-5645 .%
JMS I CHKIT /02473-4474 $<
JMP 0142 /02474-5142 )"
JMS I LPBCK /02475-4464 $4
2445 /02476-2445 T%
JMS I F0 /02477-4466 $6
JMS I TSTIT /02500-4473 $;
TJSA /02501-5652 .*
JMS I CHKIT /02502-4474 $<
JMP 0153 /02503-5153 )+
JMS I LPBCK /02504-4464 $4
2477 /02505-2477 T?
JMS I F0 /02506-4466 $6
JMS I CLEARX /02507-4475 $=
CLA CLL CMA /02510-7340 ;
JMS I 0103 /02511-4503 %C
AND 0045 /02512-0045 @%
JMS I TSTIT /02513-4473 $;
TJNX5P /02514-5662 .2
JMS I CHKIT /02515-4474 $<
JMP 0164 /02516-5164 )4
JMS I LPBCK /02517-4464 $4
2506 /02520-2506 UF
JMS I F0 /02521-4466 $6
JMS I TSTIT /02522-4473 $;
FPC1 /02523-5400 ,@
JMS I CHKIT /02524-4474 $<
JMP 0175 /02525-5175 )=
JMS I LPBCK /02526-4464 $4
2521 /02527-2521 UQ
JMS I F7 /02530-4467 $7
JMS I TSTIT /02531-4473 $;
FPC1 /02532-5400 ,@
JMS I CHKIT /02533-4474 $<
JMP 2406 /02534-5206 *F
JMS I LPBCK /02535-4464 $4
2530 /02536-2530 UX
JMS I F7 /02537-4467 $7
JMS I CLEARX /02540-4475 $=
DCA EPMODE /02541-3143 Y#
DCA DPMODE /02542-3141 Y!
JMS I TSTIT /02543-4473 $;
TFLX0P /02544-5443 ,#
JMS I CHKIT /02545-4474 $<
JMP 2417 /02546-5217 *O
JMS I LPBCK /02547-4464 $4
2537 /02550-2537 U_
JMS I F0 /02551-4466 $6
JMS I CLEARX /02552-4475 $=
CLA CLL IAC RAL /02553-7305 ;E
JMS I 0103 /02554-4503 %C
AND 0044 /02555-0044 @$
JMS I TSTIT /02556-4473 $;
TFLX0 /02557-5446 ,&
JMS I CHKIT /02560-4474 $<
JMP 2430 /02561-5230 *X
JMS I LPBCK /02562-4464 $4
2551 /02563-2551 U)
JMP I 2573 /02564-5773 /;
AND 2407 /02565-0207 BG
JMP I 2433 /02566-5633 .[
AND 0021 /02567-0021 @Q
JMP I 2450 /02570-5650 .(
ISZ 2471 /02571-2271 R9
JMS I 0046 /02572-4446 $&
TAD 2544 /02573-1344 K$
TAD 0030 /02574-1030 HX
MQA MQL CLA DCM /02575-7775 ?=
AND 0003 /02576-0003 @C
JMP 0101 /02577-5101 )A
PAGE
FACSET, AND 0000 /02600-0000 @@
CLA CLL CMA /02601-7340 ;
DCA 0037 /02602-3037 X_
TAD (FAC-1 /02603-1377 K?
DCA 0010 /02604-3010 XH
TAD (-6 /02605-1376 K>
DCA 0011 /02606-3011 XI
JMP I FACSET /02607-5600 .@
F0000, AND 0000 /02610-0000 @@
JMS FACSET /02611-4200 "@
DCA I 0010 /02612-3410 \H
ISZ 0011 /02613-2011 PI
JMP 2612 /02614-5212 *J
JMP I 2610 /02615-5610 .H
F7777, AND 0000 /02616-0000 @@
JMS FACSET /02617-4200 "@
CLA CLL CMA /02620-7340 ;
DCA I 0010 /02621-3410 \H
ISZ 0011 /02622-2011 PI
JMP 2620 /02623-5220 *P
JMP I 2616 /02624-5616 .N
F2525, AND 0000 /02625-0000 @@
JMS FACSET /02626-4200 "@
TAD C2525 /02627-1126 IV
DCA I 0010 /02630-3410 \H
ISZ 0011 /02631-2011 PI
JMP 2627 /02632-5227 *W
JMP I F2525 /02633-5625 .U
F5252, AND 0000 /02634-0000 @@
JMS FACSET /02635-4200 "@
TAD C5252 /02636-1130 IX
DCA I 0010 /02637-3410 \H
ISZ 0011 /02640-2011 PI
JMP 2636 /02641-5236 *^
JMP I F5252 /02642-5634 .\
FXXXX, AND 0000 /02643-0000 @@
DCA 0015 /02644-3015 XM
JMS FACSET /02645-4200 "@
TAD 0015 /02646-1015 HM
DCA I 0010 /02647-3410 \H
ISZ 0011 /02650-2011 PI
JMP 2646 /02651-5246 *&
JMP I FXXXX /02652-5643 .#
CLINDX, AND 0000 /02653-0000 @@
CLA CLL /02654-7300 ;@
TAD (-10 /02655-1375 K=
DCA 0011 /02656-3011 XI
TAD (INDEX-1 /02657-1374 K<
DCA 0010 /02660-3010 XH
JMS I (3524 /02661-4773 ';
ISZ 0011 /02662-2011 PI
JMP .-2 /02663-5261 *1
JMP I CLINDX /02664-5653 .+
CLRBP, AND 0000 /02665-0000 @@
CLA CLL /02666-7300 ;@
TAD (-6 /02667-1376 K>
DCA 0011 /02670-3011 XI
TAD 2772 /02671-1372 K: TAD (BP26-1
DCA 0010 /02672-3010 XH
CDF2, CDF 0 /02673-6201 2A
DCA I 0010 /02674-3410 \H
CDF 0 /02675-6201 2A
ISZ 0011 /02676-2011 PI
JMP .-4 /02677-5273 *;
JMP I CLRBP /02700-5665 .5
TEST, AND 0000 /02701-0000 @@
TAD I TEST /02702-1701 OA
DCA FPC /02703-3025 XU
JMS I READCH /02704-4502 %B
JMS TSINIT /02705-4315 #M
TAD XAPT /02706-1113 IK
FPST /02707-6555 5-
JMS NOSKP /02710-4337 #_
FPINT /02711-6551 5)
JMP .-1 /02712-5311 +I
ISZ TEST /02713-2301 SA
JMP I TEST /02714-5701 /A
TSINIT, AND 0000 /02715-0000 @@
FPICL /02716-6552 5*
CLA CLL CML IAC RTR /02717-7333 ;[
DCA 0027 /02720-3027 XW
TAD C40 /02721-1114 IL
DCA 0026 /02722-3026 XV
DCA 0030 /02723-3030 XX
DCA 0135 /02724-3135 Y]
TAD FBITS /02725-1142 I"
DCA APT /02726-3024 XT
TAD DPMODE /02727-1141 I!
FPCOM /02730-6553 5+
CLA CLL /02731-7300 ;@
TAD EPMODE /02732-1143 I#
SZA /02733-7440 <
FPEP /02734-6567 57
CLA CLL /02735-7300 ;@
JMP I TSINIT /02736-5715 /M
NOSKP, AND 0000 /02737-0000 @@
CLA CLL /02740-7300 ;@
TAD NOSKP /02741-1337 K_
DCA PCLOC /02742-3145 Y%
JMS I X8 /02743-4504 %D
JMS I GETSW /02744-4463 $3
AND C100 /02745-0116 AN
SZA CLA /02746-7640 >
JMP 2767 /02747-5367 +7
TAD 2701 /02750-1301 KA
DCA 0146 /02751-3146 Y&
JMS I MES10 /02752-4456 $.
INSERR /02753-7264 :4
JMS I MES /02754-4455 $-
NOSKIP /02755-7523 =S
JMS I VT /02756-4460 $0
JMS I MES /02757-4455 $-
PC /02760-7546 =&
TAD PCLOC /02761-1145 I%
JMS I DIGS /02762-4465 $5
JMS I MES /02763-4455 $-
PC2 /02764-7550 =(
TAD 0146 /02765-1146 I&
JMS I DIGS /02766-4465 $5
JMS I LPBCK /02767-4464 $4
2706 /02770-2706 WF
JMP 2706 /02771-5306 +F
/6115 /02772-6115 1M
/DCA I 0124 /02773-3524 ]T
/AND 0037 /02774-0037 @_
/SPA SNA SZL CLA /02775-7770 ?8
/SPA SNA SZL CLA HLT /02776-7772 ?:
/AND 0030 /02777-0030 @X
PAGE
MESG, AND 0000 /03000-0000 @@
CLA CLL /03001-7300 ;@
IOF /03002-6002 0B
FPICL /03003-6552 5*
TAD I MESG /03004-1600 N@
ISZ MESG /03005-2200 R@
DCA MSTEMP /03006-3251 Z)
TAD CDF10 /03007-1003 HC
SNA CLA /03010-7650 >(
CDF 0 /03011-6201 2A
MNXT, TAD I MSTEMP /03012-1651 N)
AND (7700 /03013-0377 C?
SNA /03014-7450 <(
JMP MEND /03015-5241 *!
SMA /03016-7500 =@
CML /03017-7020 8P
IAC /03020-7001 8A
RTR /03021-7012 8J
RTR /03022-7012 8J
RTR /03023-7012 8J
JMS MSCHR /03024-4252 "*
TAD I MSTEMP /03025-1651 N)
AND (77 /03026-0376 C>
SNA /03027-7450 <(
JMP MEND /03030-5241 *!
TAD C3740 /03031-1247 J'
SMA /03032-7500 =@
TAD C4100 /03033-1250 J(
TAD C240 /03034-1120 IP
JMS MSCHR /03035-4252 "*
CLL /03036-7100 9@
ISZ MSTEMP /03037-2251 R)
JMP MNXT /03040-5212 *J
MEND, TAD CIF10 /03041-1004 HD
SZA CLA /03042-7640 >
CIF CDF 10 /03043-6213 2K
DCA CDF10 /03044-3003 XC
DCA CIF10 /03045-3004 XD
JMP I MESG /03046-5600 .@
C3740, 3740 /03047-3740 _
C4100, 4100 /03050-4100 !@
MSTEMP, 0000 /03051-0000 @@
MSCHR, AND 0000 /03052-0000 @@
DCA MSCTM /03053-3305 [E
TAD MODEX8 /03054-1022 HR
SPA CLA /03055-7710 ?H
JMP MEND /03056-5241 *!
KSF /03057-6031 0Y
JMP NOFLG /03060-5274 *<
KRB /03061-6036 0^
AND (177 /03062-0375 C=
TAD C200 /03063-1117 IO
DCA INCHAR /03064-3140 Y
RDF /03065-6214 2L
TAD (CDF 0 /03066-1374 K<
DCA .+4 /03067-3273 Z;
CDF 0 /03070-6201 2A
JMS I CTQS /03071-4477 $?
JMS I CTCG /03072-4476 $>
CDF 0 /03073-6201 2A
NOFLG, TAD MSCTM /03074-1305 KE
TAD (-337 /03075-1373 K;
SZA CLA /03076-7640 >
JMP .+3 /03077-5302 +B
JMS I VT /03100-4460 $0
JMP I MSCHR /03101-5652 .*
TAD MSCTM /03102-1305 KE
JMS I PUN /03103-4461 $1
JMP I MSCHR /03104-5652 .*
MSCTM, AND 0000 /03105-0000 @@
PUNCH, AND 0000 /03106-0000 @@
TLS /03107-6046 0&
TSF /03110-6041 0!
JMP .-1 /03111-5310 +H
TCF /03112-6042 0"
CLA /03113-7200 :@
JMP I PUNCH /03114-5706 /F
READC, AND 0000 /03115-0000 @@
KSF /03116-6031 0Y
JMP I READC /03117-5715 /M
KRB /03120-6036 0^
AND (177 /03121-0375 C=
TAD C200 /03122-1117 IO
DCA INCHAR /03123-3140 Y
JMS I CTCG /03124-4476 $>
JMP I 3115 /03125-5715 /M
READ, AND 0000 /03126-0000 @@
KSF /03127-6031 0Y
JMP .-1 /03130-5327 +W
KRB /03131-6036 0^
AND (177 /03132-0375 C=
TAD C200 /03133-1117 IO
JMP I READ /03134-5726 /V
READEC, AND 0000 /03135-0000 @@
JMS READ /03136-4326 #V
DCA INCHAR /03137-3140 Y
JMS I CTCG /03140-4476 $>
TAD INCHAR /03141-1140 I
JMS I PUN /03142-4461 $1
TAD INCHAR /03143-1140 I
JMP I READEC /03144-5735 /]
MESG10, AND 0000 /03145-0000 @@
TAD I MESG10 /03146-1745 O%
DCA MSTEMP /03147-3251 Z)
ISZ MESG10 /03150-2345 S%
TAD (BACK00 /03151-1372 K:
DCA MESG /03152-3200 Z@
CLA CLL /03153-7300 ;@
CDF 10 /03154-6211 2I
IOF /03155-6002 0B
FPICL /03156-6552 5*
JMP MNXT /03157-5212 *J
BACK00, CDF 0 /03160-6201 2A
JMP I MESG10 /03161-5745 /%
JMS I 0107 /03162-4507 %G
JMS I 0107 /03163-4507 %G
JMP I 3166 /03164-5766 /6
DCA 3032 /03165-3232 ZZ
DCA 3000 /03166-3200 Z@
DCA I 3177 /03167-3777 _?
CLA IAC /03170-7201 :A
/CLA /03171-7200 :@
/DCA 0160 /03172-3160 Y0
/SCA /03173-7441 <!
/CDF 0 /03174-6201 2A
/AND 0177 /03175-0177 A?
/AND 0077 /03176-0077 @?
/SMA CLA /03177-7700 ?@
PAGE
OPTION, AND 0000 /03200-0000 @@
JMS I VT /03201-4460 $0
TAD 3377 /03202-1377 K?
JMS I PUN /03203-4461 $1
TAD 3376 /03204-1376 K>
JMS I PUN /03205-4461 $1
TAD 3375 /03206-1375 K=
JMS I PUN /03207-4461 $1
JMS I GETSW /03210-4463 $3
JMS I DIGS /03211-4465 $5
TAD 0120 /03212-1120 IP
JMS I PUN /03213-4461 $1
CLA CLL CMA RTL /03214-7346 ;&
DCA COUNT /03215-3147 Y'
DCA 0150 /03216-3150 Y(
DCA 0151 /03217-3151 Y)
JMS 3256 /03220-4256 ".
JMS 3277 /03221-4277 "?
JMP 3274 /03222-5274 *<
TAD 3273 /03223-1273 J;
DCA 0150 /03224-3150 Y(
JMS 3256 /03225-4256 ".
JMS 3277 /03226-4277 "?
JMP 3274 /03227-5274 *<
TAD 0150 /03230-1150 I(
CLL RTL /03231-7106 9F
RAL /03232-7004 8D
TAD 3273 /03233-1273 J;
DCA 0150 /03234-3150 Y(
ISZ COUNT /03235-2147 Q'
JMP 3225 /03236-5225 *U
JMS 3256 /03237-4256 ".
JMS 3320 /03240-4320 #P
JMP 3201 /03241-5201 *A
TAD 0151 /03242-1151 I)
SNA CLA /03243-7650 >(
JMP I 0057 /03244-5457 ,/
TAD 0150 /03245-1150 I(
DCA 0020 /03246-3020 XP
JMP I 0057 /03247-5457 ,/
TAD 0151 /03250-1151 I)
SNA CLA /03251-7650 >(
JMP I 3200 /03252-5600 .@
TAD 0150 /03253-1150 I(
DCA 0020 /03254-3020 XP
JMP I 3200 /03255-5600 .@
AND 0000 /03256-0000 @@
JMS I 3374 /03257-4774 '<
DCA 3273 /03260-3273 Z;
TAD I 3373 /03261-1773 O;
SNA CLA /03262-7650 >(
JMP 3271 /03263-5271 *9
JMS I 3372 /03264-4772 ':
TAD 3273 /03265-1273 J;
JMS I PUN /03266-4461 $1
TAD 3273 /03267-1273 J;
JMP I 3256 /03270-5656 ..
JMS I 3371 /03271-4771 '9
JMP 3201 /03272-5201 *A
AND 0000 /03273-0000 @@
TAD 0122 /03274-1122 IR
JMS I PUN /03275-4461 $1
JMP 3201 /03276-5201 *A
AND 0000 /03277-0000 @@
JMS 3320 /03300-4320 #P
TAD 3273 /03301-1273 J;
TAD 3370 /03302-1370 K8
SMA /03303-7500 =@
JMP 3316 /03304-5316 +N
TAD C10 /03305-1111 II
SPA CLA /03306-7710 ?H
JMP 3316 /03307-5316 +N
ISZ 3277 /03310-2277 R?
TAD 3273 /03311-1273 J;
AND 0110 /03312-0110 AH
DCA 3273 /03313-3273 Z;
ISZ 0151 /03314-2151 Q)
JMP I 3277 /03315-5677 .?
CLA CLL /03316-7300 ;@
JMP I 3277 /03317-5677 .?
AND 0000 /03320-0000 @@
TAD 3367 /03321-1367 K7
SNA CLA /03322-7650 >(
JMP 3242 /03323-5242 *"
TAD 3273 /03324-1273 J;
TAD 3366 /03325-1366 K6
SNA CLA /03326-7650 >(
JMP 3331 /03327-5331 +Y
JMP I 3320 /03330-5720 /P
JMS I VT /03331-4460 $0
JMP 3250 /03332-5250 *(
YESNO, AND 0000 /03333-0000 @@
JMS I RDECHO /03334-4462 $2
TAD 3365 /03335-1365 K5
SNA CLA /03336-7650 >(
JMP 3347 /03337-5347 +'
TAD INCHAR /03340-1140 I
TAD 3364 /03341-1364 K4
SNA CLA /03342-7650 >(
JMP 3350 /03343-5350 +(
TAD C277 /03344-1122 IR
JMS I PUN /03345-4461 $1
JMP I YESNO /03346-5733 /[
ISZ YESNO /03347-2333 S[
ISZ YESNO /03350-2333 S[
JMP I YESNO /03351-5733 /[
FPICL /03352-6552 5*
FPRST /03353-6556 5.
DCA COUNT /03354-3147 Y'
JMS I 0053 /03355-4453 $+
AND 0010 /03356-0010 @H
JMP 3341 /03357-5341 +!
TAD 0164 /03360-1164 I4
FPCOM /03361-6553 5+
CLA /03362-7200 :@
FPEP /03363-6567 57
SWBA /03364-7447 <'
SZA SNL HLT /03365-7462 <2
MQA MQL DAD /03366-7563 =3
SMA SZA SNL OSR HLT /03367-7566 =6
SPA /03370-7510 =H
6535 /03371-6535 5]
6526 /03372-6526 5V
CLA CMA IAC /03373-7241 :!
DCA 0126 /03374-3126 YV
AND 3275 /03375-0275 B=
AND 3322 /03376-0322 CR
AND 3323 /03377-0323 CS
PAGE
GOE, AND 0000 /03400-0000 @@
TAD RELDON /03401-1254 J,
SZA CLA /03402-7640 >
JMP I 3400 /03403-5600 .@
JMS I VT /03404-4460 $0
JMS I MES10 /03405-4456 $.
DATAEX /03406-7254 :,
JMS I MES10 /03407-4456 $.
RELOCT /03410-7561 =1
JMS I MES10 /03411-4456 $.
YORN /03412-7352 ;*
JMS I 3453 /03413-4653 &+
JMP 3404 /03414-5204 *D
JMP 3423 /03415-5223 *S
CLA CLL CMA /03416-7340 ;
CDF 10 /03417-6211 2I
DCA I RELFLG /03420-3652 ^*
CDF 0 /03421-6201 2A
JMP I 3400 /03422-5600 .@
CDF 10 /03423-6211 2I
DCA I RELFLG /03424-3652 ^*
CDF 0 /03425-6201 2A
GOEGO, JMS I VT /03426-4460 $0
JMS I MES10 /03427-4456 $.
DATAEX /03430-7254 :,
JMS I MES10 /03431-4456 $.
QUICKV /03432-7235 :]
JMS I MES10 /03433-4456 $.
YORN /03434-7352 ;*
JMS I YN /03435-4653 &+
JMP GOEGO /03436-5226 *V
JMP .+3 /03437-5242 *"
TAD 0131 /03440-1131 IY
SKP /03441-7410 <H
TAD 3577 /03442-1377 K?
CDF 10 /03443-6211 2I
DCA I REL /03444-3651 ^)
CDF 0 /03445-6201 2A
JMS I VT /03446-4460 $0
ISZ RELDON /03447-2254 R,
JMP I GOE /03450-5600 .@
REL, FLGVER /03451-0303 CC
RELFLG, FLGREL /03452-3252 Z*
YN, YESNO /03453-3333 [[
RELDON, AND 0000 /03454-0000 @@
AND 0000 /03455-0000 @@
ISZ 0010 /03456-2010 PH
TAD I 0010 /03457-1410 LH
DCA 0017 /03460-3017 XO
CLA CLL CMA RAL /03461-7344 ;$
TAD 0010 /03462-1010 HH
DCA 0010 /03463-3010 XH
JMS I 3576 /03464-4776 '>
TAD 0017 /03465-1017 HO
AND 0124 /03466-0124 AT
SNA CLA /03467-7650 >(
JMP 3475 /03470-5275 *=
TAD FBITS /03471-1142 I"
CLL RTR /03472-7112 9J
RTR /03473-7012 8J
JMP 3507 /03474-5307 +G
TAD 0017 /03475-1017 HO
AND 0125 /03476-0125 AU
SNA CLA /03477-7650 >(
JMP 3505 /03500-5305 +E
TAD FBITS /03501-1142 I"
CLL RTL /03502-7106 9F
RAL /03503-7004 8D
JMP 3507 /03504-5307 +G
TAD FBITS /03505-1142 I"
BSW /03506-7002 8B
AND 0127 /03507-0127 AW
DCA 0017 /03510-3017 XO
TAD FBITS /03511-1142 I"
AND 0123 /03512-0123 AS
TAD 0017 /03513-1017 HO
DCA FBITS /03514-3142 Y"
TAD 0163 /03515-1163 I3
SNA CLA /03516-7650 >(
JMP I 3455 /03517-5655 .-
DCA 0163 /03520-3163 Y3
JMP I 3523 /03521-5723 /S
JMP I 3455 /03522-5655 .-
CLL IAC RAR /03523-7111 9I
AND 0000 /03524-0000 @@
TAD 0157 /03525-1157 I/
AND C4 /03526-0107 AG
SZA CLA /03527-7640 >
CDF 10 /03530-6211 2I
DCA I 0010 /03531-3410 \H
CDF 0 /03532-6201 2A
JMP I 3524 /03533-5724 /T
AND 0000 /03534-0000 @@
DCA 3551 /03535-3351 [)
TAD I 3534 /03536-1734 O\
DCA 3552 /03537-3352 [*
ISZ 3534 /03540-2334 S\
TAD 0157 /03541-1157 I/
AND C4 /03542-0107 AG
SZA CLA /03543-7640 >
CDF 10 /03544-6211 2I
TAD 3551 /03545-1351 K)
DCA I 3552 /03546-3752 _*
CDF 0 /03547-6201 2A
JMP I 3534 /03550-5734 /\
AND 0000 /03551-0000 @@
AND 0000 /03552-0000 @@
LNK26, AND 0000 /03553-0000 @@
TAD I LNK26 /03554-1753 O+
CIF CDF 10 /03555-6213 2K
JMS I .+3 /03556-4761 '1
ISZ LNK26 /03557-2353 S+
JMP I LNK26 /03560-5753 /+
X12600, F12600 /03561-2600 V@
CHKX8, AND 0000 /03562-0000 @@
TAD MODEX8 /03563-1022 HR
SMA CLA /03564-7700 ?@
JMP I CHKX8 /03565-5762 /2
IOF /03566-6002 0B
TAD PCLOC /03567-1145 I%
CDF 0 /03570-6201 2A
CIF 70 /03571-6272 2:
JMP I .+1 /03572-5773 /;
6520 /03573-6520 5P
ISZ 0000 /03574-2000 P@
TAD I 3503 /03575-1703 OC
ISZ 0156 /03576-2156 Q.
SMA SZA SNL CLA OSR /03577-7764 ?4
PAGE
CHKBUF, JMP I 0013 /03600-5413 ,K
JMP I 0011 /03601-5411 ,I
AND 0000 /03602-0000 @@
AND 0000 /03603-0000 @@
AND 0000 /03604-0000 @@
AND 0000 /03605-0000 @@
AND 0000 /03606-0000 @@
AND 0000 /03607-0000 @@
AND 0004 /03610-0004 @D
JMP I 0015 /03611-5415 ,M
JMP I 0013 /03612-5413 ,K
AND 0000 /03613-0000 @@
MQA MQL CLA SAM /03614-7777 ??
MQA MQL CLA SAM /03615-7777 ??
MQA MQL CLA SAM /03616-7777 ??
MQA MQL CLA SAM /03617-7777 ??
MQA MQL CLA SAM /03620-7777 ??
AND 0004 /03621-0004 @D
JMP I 0015 /03622-5415 ,M
JMP I 0013 /03623-5413 ,K
MQA MQL CLA SAM /03624-7777 ??
AND 0000 /03625-0000 @@
AND 0000 /03626-0000 @@
AND 0000 /03627-0000 @@
AND 0000 /03630-0000 @@
AND 0001 /03631-0001 @A
AND 0004 /03632-0004 @D
JMP I 0021 /03633-5421 ,Q
JMP I 0015 /03634-5415 ,M
ISZ I 0125 /03635-2525 UU
JMP 3652 /03636-5252 **
JMP 3652 /03637-5252 **
JMP 3652 /03640-5252 **
JMP 3652 /03641-5252 **
JMP 3653 /03642-5253 *+
AND 0004 /03643-0004 @D
JMP I 0023 /03644-5423 ,S
JMP I 0021 /03645-5421 ,Q
SMA CLA OSR HLT /03646-7706 ?F
ISZ 0000 /03647-2000 P@
AND 0000 /03650-0000 @@
AND 0000 /03651-0000 @@
AND 0000 /03652-0000 @@
AND 0000 /03653-0000 @@
AND 0004 /03654-0004 @D
JMP I 0023 /03655-5423 ,S
JMP I 0021 /03656-5421 ,Q
SPA CLA /03657-7710 ?H
ISZ I 0000 /03660-2400 T@
AND 0000 /03661-0000 @@
AND 0000 /03662-0000 @@
AND 0000 /03663-0000 @@
AND 0000 /03664-0000 @@
AND 0004 /03665-0004 @D
JMP I 0023 /03666-5423 ,S
JMP I 0021 /03667-5421 ,Q
SMA CLA OSR HLT /03670-7706 ?F
SKON /03671-6000 0@
AND 0000 /03672-0000 @@
AND 0000 /03673-0000 @@
AND 0000 /03674-0000 @@
AND 0000 /03675-0000 @@
AND 0004 /03676-0004 @D
JMP I 0023 /03677-5423 ,S
JMP I 0021 /03700-5421 ,Q
AND 0001 /03701-0001 @A
SKON /03702-6000 0@
AND 0000 /03703-0000 @@
AND 0000 /03704-0000 @@
AND 0000 /03705-0000 @@
AND 0000 /03706-0000 @@
AND 0004 /03707-0004 @D
JMP I 0025 /03710-5425 ,U
AND 0040 /03711-0040 @
AND 0001 /03712-0001 @A
ISZ 0000 /03713-2000 P@
AND 0000 /03714-0000 @@
AND 0000 /03715-0000 @@
AND 0000 /03716-0000 @@
AND 0000 /03717-0000 @@
AND 0004 /03720-0004 @D
JMP I 0027 /03721-5427 ,W
AND 0047 /03722-0047 @'
AND 0002 /03723-0002 @B
SKON /03724-6000 0@
AND 0000 /03725-0000 @@
AND 0000 /03726-0000 @@
AND 0000 /03727-0000 @@
AND 0000 /03730-0000 @@
AND 0004 /03731-0004 @D
JMP I 0031 /03732-5431 ,Y
AND 0041 /03733-0041 @!
SMA CLA OSR HLT /03734-7706 ?F
ISZ 0000 /03735-2000 P@
AND 0000 /03736-0000 @@
AND 0000 /03737-0000 @@
AND 0000 /03740-0000 @@
AND 0000 /03741-0000 @@
AND 0004 /03742-0004 @D
JMP I 0033 /03743-5433 ,[
AND 0042 /03744-0042 @"
AND 0072 /03745-0072 @:
AND 0000 /03746-0000 @@
AND 0000 /03747-0000 @@
AND 0000 /03750-0000 @@
AND 0000 /03751-0000 @@
AND 0001 /03752-0001 @A
AND 0004 /03753-0004 @D
JMP I 0035 /03754-5435 ,]
AND 0043 /03755-0043 @#
AND 0072 /03756-0072 @:
MQA MQL CLA SAM /03757-7777 ??
MQA MQL CLA SAM /03760-7777 ??
MQA MQL CLA SAM /03761-7777 ??
MQA MQL CLA SAM /03762-7777 ??
MQA MQL CLA SAM /03763-7777 ??
AND 0004 /03764-0004 @D
JMP I 0037 /03765-5437 ,_
JMP I 0035 /03766-5435 ,]
AND 0000 /03767-0000 @@
AND 0000 /03770-0000 @@
AND 0000 /03771-0000 @@
AND 0000 /03772-0000 @@
AND 0000 /03773-0000 @@
AND 0000 /03774-0000 @@
AND 0004 /03775-0004 @D
JMP I 0041 /03776-5441 ,!
KCC /03777-6032 0Z
ISZ I 0125 /04000-2525 UU
ISZ I 0125 /04001-2525 UU
ISZ I 0125 /04002-2525 UU
ISZ I 0125 /04003-2525 UU
ISZ I 0125 /04004-2525 UU
ISZ I 0125 /04005-2525 UU
AND 0004 /04006-0004 @D
JMP I 0043 /04007-5443 ,#
TFL /04010-6040 0
JMP 4052 /04011-5252 **
JMP 4052 /04012-5252 **
JMP 4052 /04013-5252 **
JMP 4052 /04014-5252 **
JMP 4052 /04015-5252 **
JMP 4052 /04016-5252 **
AND 0004 /04017-0004 @D
JMP I 0046 /04020-5446 ,&
TLS /04021-6046 0&
AND 0000 /04022-0000 @@
AND 0000 /04023-0000 @@
AND 0000 /04024-0000 @@
AND 0000 /04025-0000 @@
AND 0000 /04026-0000 @@
AND 0000 /04027-0000 @@
AND 0004 /04030-0004 @D
JMP I 0051 /04031-5451 ,)
6054 /04032-6054 0,
MQA MQL CLA SAM /04033-7777 ??
MQA MQL CLA SAM /04034-7777 ??
MQA MQL CLA SAM /04035-7777 ??
MQA MQL CLA SAM /04036-7777 ??
MQA MQL CLA SAM /04037-7777 ??
MQA MQL CLA SAM /04040-7777 ??
AND 0004 /04041-0004 @D
JMP I 0054 /04042-5454 ,,
6054 /04043-6054 0,
MQA MQL CLA SAM /04044-7777 ??
MQA MQL CLA SAM /04045-7777 ??
MQA MQL CLA SAM /04046-7777 ??
MQA MQL CLA SAM /04047-7777 ??
MQA MQL CLA SAM /04050-7777 ??
MQA MQL CLA SAM /04051-7777 ??
AND 0004 /04052-0004 @D
JMP I 0054 /04053-5454 ,,
6062 /04054-6062 02
AND 0000 /04055-0000 @@
ISZ I 0125 /04056-2525 UU
ISZ I 0125 /04057-2525 UU
ISZ I 0125 /04060-2525 UU
ISZ I 0125 /04061-2525 UU
ISZ I 0125 /04062-2525 UU
AND 0004 /04063-0004 @D
JMP I 0056 /04064-5456 ,.
6076 /04065-6076 0>
AND 0000 /04066-0000 @@
JMS 0000 /04067-4000 @
AND 0000 /04070-0000 @@
AND 0000 /04071-0000 @@
AND 0000 /04072-0000 @@
AND 0001 /04073-0001 @A
AND 0004 /04074-0004 @D
JMP I 0056 /04075-5456 ,.
6104 /04076-6104 1D
AND 0000 /04077-0000 @@
AND 0000 /04100-0000 @@
AND 0000 /04101-0000 @@
AND 0000 /04102-0000 @@
AND 0000 /04103-0000 @@
AND 0001 /04104-0001 @A
AND 0004 /04105-0004 @D
JMP I 0060 /04106-5460 ,0
6112 /04107-6112 1J
AND 0000 /04110-0000 @@
DCA I 4177 /04111-3777 _?
MQA MQL CLA SAM /04112-7777 ??
MQA MQL CLA SAM /04113-7777 ??
MQA MQL CLA SAM /04114-7777 ??
MQA MQL CLA SAM /04115-7777 ??
AND 0004 /04116-0004 @D
JMP I 0062 /04117-5462 ,2
6120 /04120-6120 1P
JMP 4052 /04121-5252 **
JMP 4052 /04122-5252 **
JMP 4052 /04123-5252 **
JMP 4052 /04124-5252 **
JMP 4052 /04125-5252 **
JMP 4052 /04126-5300 **
/ JMP 4052 /04126-5252 **
AND 0004 /04127-0004 @D
JMP 4052 /04130-5252 **
JMP 4052 /04131-5252 **
JMP 4052 /04132-5252 **
JMP 4052 /04133-5252 **
JMP 4052 /04134-5252 **
JMP 4052 /04135-5300 **
/ JMP 4052 /04135-5252 **
JMP I 0064 /04136-5464 ,4
6070 /04137-6070 08
AND 0000 /04140-0000 @@
DCA I 4177 /04141-3777 _?
MQA MQL CLA SAM /04142-7777 ??
MQA MQL CLA SAM /04143-7777 ??
MQA MQL CLA SAM /04144-7777 ??
MQA MQL CLA SAM /04145-7777 ??
AND 0004 /04146-0004 @D
JMP I 0066 /04147-5466 ,6
6112 /04150-6112 1J
AND 0001 /04151-0001 @A
ISZ 0000 /04152-2000 P@
AND 0000 /04153-0000 @@
AND 0000 /04154-0000 @@
AND 0000 /04155-0000 @@
AND 0000 /04156-0000 @@
AND 0004 /04157-0004 @D
JMP I 0066 /04160-5466 ,6
6112 /04161-6112 1J
AND 0000 /04162-0000 @@
DCA I 4177 /04163-3777 _?
MQA MQL CLA SAM /04164-7777 ??
MQA MQL CLA SAM /04165-7777 ??
MQA MQL CLA SAM /04166-7777 ??
SPA SNA SZL CLA OSR /04167-7774 ?<
AND 0004 /04170-0004 @D
JMP I 0070 /04171-5470 ,8
6126 /04172-6126 1V
MQA MQL CLA SAM /04173-7777 ??
DCA I 4177 /04174-3777 _?
MQA MQL CLA SAM /04175-7777 ??
MQA MQL CLA SAM /04176-7777 ??
MQA MQL CLA SAM /04177-7777 ??
SPA SNA SZL CLA OSR HLT /04200-7776 ?>
AND 0004 /04201-0004 @D
JMP I 0072 /04202-5472 ,:
6134 /04203-6134 1\
JMS 4206 /04204-4206 "F
ISZ 0104 /04205-2104 QD
ISZ 0104 /04206-2104 QD
ISZ 0104 /04207-2104 QD
ISZ 0104 /04210-2104 QD
ISZ 0100 /04211-2100 Q@
AND 0004 /04212-0004 @D
JMP I 0074 /04213-5474 ,<
6142 /04214-6142 1"
ISZ 0105 /04215-2105 QE
ISZ 4210 /04216-2210 RH
JMS 4210 /04217-4210 "H
JMS 4210 /04220-4210 "H
JMS 4210 /04221-4210 "H
JMS 4210 /04222-4210 "H
AND 0004 /04223-0004 @D
JMP I 0076 /04224-5476 ,>
6150 /04225-6150 1(
TAD 0043 /04226-1043 H#
ISZ 4210 /04227-2210 RH
JMS 4210 /04230-4210 "H
JMS 4210 /04231-4210 "H
JMS 4210 /04232-4210 "H
JMS 4210 /04233-4210 "H
AND 0004 /04234-0004 @D
JMP I 0100 /04235-5500 -@
6156 /04236-6156 1.
AND 0000 /04237-0000 @@
JMP I 4377 /04240-5777 /?
MQA MQL CLA SAM /04241-7777 ??
MQA MQL CLA SAM /04242-7777 ??
MQA MQL CLA SAM /04243-7777 ??
MQA MQL CLA SAM /04244-7777 ??
AND 0004 /04245-0004 @D
JMP I 0102 /04246-5502 -B
6164 /04247-6164 14
AND 0000 /04250-0000 @@
AND 0000 /04251-0000 @@
AND 0000 /04252-0000 @@
AND 0000 /04253-0000 @@
AND 0000 /04254-0000 @@
AND 0000 /04255-0000 @@
AND 0004 /04256-0004 @D
JMP I 0104 /04257-5504 -D
6172 /04260-6172 1:
AND 0001 /04261-0001 @A
JMS 0000 /04262-4000 @
AND 0000 /04263-0000 @@
AND 0000 /04264-0000 @@
AND 0000 /04265-0000 @@
AND 0001 /04266-0001 @A
AND 0004 /04267-0004 @D
JMP I 0106 /04270-5506 -F
6200 /04271-6200 2@
JMS 4205 /04272-4205 "E
JMP I 4273 /04273-5673 .;
JMP I 4273 /04274-5673 .;
JMP I 4273 /04275-5673 .;
JMP I 4273 /04276-5673 .;
JMP I 4300 /04277-5700 /@
AND 0004 /04300-0004 @D
JMP I 0110 /04301-5510 -H
6206 /04302-6206 2F
ISZ 0103 /04303-2103 QC
DCA 0146 /04304-3146 Y&
DCA 0146 /04305-3146 Y&
DCA 0146 /04306-3146 Y&
DCA 0146 /04307-3146 Y&
DCA 0150 /04310-3150 Y(
AND 0004 /04311-0004 @D
JMP I 0112 /04312-5512 -J
RDF /04313-6214 2L
TAD 0040 /04314-1040 H
ISZ 0104 /04315-2104 QD
ISZ 0104 /04316-2104 QD
ISZ 0104 /04317-2104 QD
ISZ 0104 /04320-2104 QD
ISZ 0110 /04321-2110 QH
AND 0004 /04322-0004 @D
JMP I 0114 /04323-5514 -L
CIF 20 /04324-6222 2R
6313 /04325-6313 3K
DCA 0146 /04326-3146 Y&
DCA 0146 /04327-3146 Y&
DCA 0146 /04330-3146 Y&
DCA 0146 /04331-3146 Y&
DCA 0150 /04332-3150 Y(
AND 0004 /04333-0004 @D
JMP I 0116 /04334-5516 -N
6230 /04335-6230 2X
DCA 0144 /04336-3144 Y$
ISZ 0104 /04337-2104 QD
ISZ 0104 /04340-2104 QD
ISZ 0104 /04341-2104 QD
ISZ 0104 /04342-2104 QD
ISZ 0110 /04343-2110 QH
AND 0004 /04344-0004 @D
JMP I 0120 /04345-5520 -P
6236 /04346-6236 2^
AND 4327 /04347-0327 CW
ISZ 0000 /04350-2000 P@
AND 0000 /04351-0000 @@
AND 0000 /04352-0000 @@
AND 0000 /04353-0000 @@
AND 0000 /04354-0000 @@
AND 0004 /04355-0004 @D
JMP I 0122 /04356-5522 -R
RMF /04357-6244 2$
DCA I 4377 /04360-3777 _?
ISZ 0000 /04361-2000 P@
AND 0000 /04362-0000 @@
AND 0000 /04363-0000 @@
AND 0000 /04364-0000 @@
AND 0000 /04365-0000 @@
AND 0004 /04366-0004 @D
JMP I 0124 /04367-5524 -T
CIF 50 /04370-6252 2*
MQA CLA MUY /04371-7705 ?E
JMP 0000 /04372-5000 (@
AND 0000 /04373-0000 @@
AND 0000 /04374-0000 @@
AND 0000 /04375-0000 @@
AND 0000 /04376-0000 @@
AND 0004 /04377-0004 @D
JMP I 0126 /04400-5526 -V
6260 /04401-6260 20
AND 0000 /04402-0000 @@
AND 0000 /04403-0000 @@
AND 0000 /04404-0000 @@
AND 0000 /04405-0000 @@
AND 0000 /04406-0000 @@
AND 0000 /04407-0000 @@
AND 0004 /04410-0004 @D
JMP I 0130 /04411-5530 -X
6266 /04412-6266 26
DCA I 4523 /04413-3723 _S
DCA I 0034 /04414-3434 \\
DCA I 0034 /04415-3434 \\
DCA I 0034 /04416-3434 \\
DCA I 0034 /04417-3434 \\
DCA I 0032 /04420-3432 \Z
AND 0004 /04421-0004 @D
JMP I 0132 /04422-5532 -Z
SUF /04423-6274 2<
JMP 4543 /04424-5343 +#
ISZ 4404 /04425-2204 RD
TAD I 0173 /04426-1573 M;
TAD I 0143 /04427-1543 M#
DCA 0017 /04430-3017 XO
JMS I 0155 /04431-4555 %-
AND 0004 /04432-0004 @D
JMP I 0134 /04433-5534 -\
6302 /04434-6302 3B
6345 /04435-6345 3%
JMS 4550 /04436-4350 #(
TAD I 4541 /04437-1741 O!
CIF CDF 0 /04440-6203 2C
DCA 0025 /04441-3025 XU
AND I 4504 /04442-0704 GD WVDM 0705
AND 0004 /04443-0004 @D
JMP I 0136 /04444-5536 -^
6310 /04445-6310 3H
AND 0001 /04446-0001 @A
ISZ 0000 /04447-2000 P@
AND 0000 /04450-0000 @@
AND 0000 /04451-0000 @@
AND 0000 /04452-0000 @@
AND 0000 /04453-0000 @@
AND 0004 /04454-0004 @D
JMP I 0140 /04455-5540 -
6316 /04456-6316 3N
MQA MQL CLA SAM /04457-7777 ??
SKON /04460-6000 0@
AND 0000 /04461-0000 @@
AND 0000 /04462-0000 @@
AND 0000 /04463-0000 @@
AND 0000 /04464-0000 @@
AND 0004 /04465-0004 @D
JMP I 0142 /04466-5542 -"
6324 /04467-6324 3T
7777 /04470-7776 ?> WVDM 7777
ISZ 0000 /04471-2000 P@
AND 0000 /04472-0000 @@
AND 0000 /04473-0000 @@
AND 0000 /04474-0000 @@
AND 0000 /04475-0000 @@
AND 0004 /04476-0004 @D
JMP I 0144 /04477-5544 -$
6332 /04500-6332 3Z
JMP 4421 /04501-5221 *Q
DCA I 0025 /04502-3425 \U
TAD I 0076 /04503-1476 L>
ISZ I 4413 /04504-2613 VK
JMS I 4451 /04505-4651 &)
AND I 0113 /04506-0513 EK
AND 0004 /04507-0004 @D
JMP I 0146 /04510-5546 -&
6340 /04511-6340 3
7176 /04512-7176 9>
ISZ 0067 /04513-2067 P7
DCA I 4501 /04514-3701 _A
JMP I 4534 /04515-5734 /\
DCA 4466 /04516-3266 Z6
MQL CLA DCM /04517-7675 >=
AND 0004 /04520-0004 @D
JMP I 0150 /04521-5550 -(
6346 /04522-6346 3&
DCA 0121 /04523-3121 YQ
ISZ I 4451 /04524-2651 V)
ISZ I 4451 /04525-2651 V)
ISZ I 4451 /04526-2651 V)
ISZ I 4451 /04527-2651 V)
ISZ I 4451 /04530-2651 V)
AND 0004 /04531-0004 @D
JMP I 0162 /04532-5562 -2
6120 /04533-6120 1P
ISZ I 0125 /04534-2525 UU
TAD 4452 /04535-1252 J*
JMP 4452 /04536-5252 **
JMP 4452 /04537-5252 **
JMP 4452 /04540-5252 **
JMP 4452 /04541-5252 **
AND 0004 /04542-0004 @D
ISZ I 0125 /04543-2525 UU
DCA I 4577 /04544-3777 _?
MQA MQL CLA SAM /04545-7777 ??
MQA MQL CLA SAM /04546-7777 ??
MQA MQL CLA SAM /04547-7777 ??
MQA MQL CLA SAM /04550-7777 ??
JMP I 0166 /04551-5566 -6
6120 /04552-6120 1P
ISZ I 4516 /04553-2716 WN
DCA I 4505 /04554-3705 _E
TAD I 0043 /04555-1443 L#
CLL CMA CML IAC RAL /04556-7165 95
DCA I 0002 /04557-3402 \B
CIF CDF 10 /04560-6213 2K
AND 0004 /04561-0004 @D
ISZ 4432 /04562-2232 RZ
JMP I 0136 /04563-5536 -^
JMP I 4527 /04564-5727 /W
6642 /04565-6642 6"
7115 /04566-7115 9M
JMP I 4501 /04567-5701 /A
JMP I 0167 /04570-5567 -7
6376 /04571-6376 3>
DCA I 4577 /04572-3777 _?
ISZ 0000 /04573-2000 P@
AND 0000 /04574-0000 @@
AND 0000 /04575-0000 @@
AND 0000 /04576-0000 @@
AND 0000 /04577-0000 @@
AND 0044 /04600-0044 @$
JMP I 0171 /04601-5571 -9
6404 /04602-6404 4D
JMS 0000 /04603-4000 @
ISZ 0000 /04604-2000 P@
AND 0000 /04605-0000 @@
AND 0000 /04606-0000 @@
AND 0000 /04607-0000 @@
AND 0000 /04610-0000 @@
AND 0104 /04611-0104 AD
JMP I 0173 /04612-5573 -;
6412 /04613-6412 4J
ISZ I 0125 /04614-2525 UU
ISZ I 0125 /04615-2525 UU
ISZ I 0125 /04616-2525 UU
ISZ I 0125 /04617-2525 UU
ISZ I 0125 /04620-2525 UU
ISZ I 0125 /04621-2525 UU
AND I 0004 /04622-0404 DD
JMP I 0173 /04623-5573 -;
6412 /04624-6412 4J
AND 0000 /04625-0000 @@
AND 0000 /04626-0000 @@
AND 0000 /04627-0000 @@
AND 0000 /04630-0000 @@
AND 0000 /04631-0000 @@
AND 0000 /04632-0000 @@
TAD I 0004 /04633-1404 LD
JMP I 4600 /04634-5600 .@
JMP I 0174 /04635-5574 -<
AND 0000 /04636-0000 @@
AND 0000 /04637-0000 @@
AND 0000 /04640-0000 @@
AND 0000 /04641-0000 @@
AND 0000 /04642-0000 @@
AND 0000 /04643-0000 @@
AND 0004 /04644-0004 @D
JMP I 0177 /04645-5577 -?
JMP I 0174 /04646-5574 -<
AND 0000 /04647-0000 @@
AND 0000 /04650-0000 @@
AND 0000 /04651-0000 @@
AND 0000 /04652-0000 @@
AND 0000 /04653-0000 @@
AND 0001 /04654-0001 @A
AND 0004 /04655-0004 @D
JMP I 0177 /04656-5577 -?
JMP I 0174 /04657-5574 -<
AND 0000 /04660-0000 @@
JMS 0000 /04661-4000 @
AND 0000 /04662-0000 @@
AND 0000 /04663-0000 @@
AND 0000 /04664-0000 @@
AND 0001 /04665-0001 @A
AND 0004 /04666-0004 @D
JMP I 4604 /04667-5604 .D
JMP I 4600 /04670-5600 .@
AND 0000 /04671-0000 @@
AND 0000 /04672-0000 @@
AND 0000 /04673-0000 @@
AND 0000 /04674-0000 @@
AND 0000 /04675-0000 @@
AND 0000 /04676-0000 @@
AND 0004 /04677-0004 @D
JMP I 4604 /04700-5604 .D
JMP I 4600 /04701-5600 .@
AND 0000 /04702-0000 @@
AND 0000 /04703-0000 @@
AND 0000 /04704-0000 @@
AND 0000 /04705-0000 @@
AND 0000 /04706-0000 @@
AND 0001 /04707-0001 @A
AND 0004 /04710-0004 @D
JMP I 4603 /04711-5603 .C
JMP I 4600 /04712-5600 .@
AND 0000 /04713-0000 @@
JMS 0000 /04714-4000 @
AND 0000 /04715-0000 @@
AND 0000 /04716-0000 @@
AND 0000 /04717-0000 @@
AND 0001 /04720-0001 @A
AND 0004 /04721-0004 @D
JMP I 4610 /04722-5610 .H
JMP I 4604 /04723-5604 .D
AND 0000 /04724-0000 @@
AND 0000 /04725-0000 @@
AND 0000 /04726-0000 @@
AND 0000 /04727-0000 @@
AND 0000 /04730-0000 @@
AND 0000 /04731-0000 @@
AND 0004 /04732-0004 @D
JMP I 4610 /04733-5610 .H
JMP I 4604 /04734-5604 .D
AND 0000 /04735-0000 @@
JMS 0000 /04736-4000 @
AND 0000 /04737-0000 @@
AND 0000 /04740-0000 @@
AND 0000 /04741-0000 @@
AND 0001 /04742-0001 @A
AND 0004 /04743-0004 @D
JMP I 4607 /04744-5607 .G
JMP I 4604 /04745-5604 .D
AND 0000 /04746-0000 @@
AND 0000 /04747-0000 @@
AND 0000 /04750-0000 @@
AND 0000 /04751-0000 @@
AND 0000 /04752-0000 @@
AND 0001 /04753-0001 @A
AND 0004 /04754-0004 @D
JMP I 4613 /04755-5613 .K
JMP I 4610 /04756-5610 .H
AND 0000 /04757-0000 @@
AND 0000 /04760-0000 @@
AND 0000 /04761-0000 @@
AND 0000 /04762-0000 @@
AND 0000 /04763-0000 @@
AND 0000 /04764-0000 @@
AND 0004 /04765-0004 @D
JMP I 4614 /04766-5614 .L
JMP I 4610 /04767-5610 .H
AND 0000 /04770-0000 @@
AND 0000 /04771-0000 @@
AND 0000 /04772-0000 @@
AND 0000 /04773-0000 @@
AND 0000 /04774-0000 @@
AND 0001 /04775-0001 @A
AND 0004 /04776-0004 @D
JMP I 4614 /04777-5614 .L
JMP I 5010 /05000-5610 .H
AND 0000 /05001-0000 @@
JMS 0000 /05002-4000 @
AND 0000 /05003-0000 @@
AND 0000 /05004-0000 @@
AND 0000 /05005-0000 @@
AND 0001 /05006-0001 @A
AND 0004 /05007-0004 @D
JMP I 5017 /05010-5617 .O
JMP I 5014 /05011-5614 .L
AND 0000 /05012-0000 @@
AND 0000 /05013-0000 @@
AND 0000 /05014-0000 @@
AND 0000 /05015-0000 @@
AND 0000 /05016-0000 @@
AND 0000 /05017-0000 @@
AND 0004 /05020-0004 @D
JMP I 5017 /05021-5617 .O
JMP I 5014 /05022-5614 .L
AND 0000 /05023-0000 @@
AND 0000 /05024-0000 @@
AND 0000 /05025-0000 @@
AND 0000 /05026-0000 @@
AND 0000 /05027-0000 @@
AND 0001 /05030-0001 @A
AND 0004 /05031-0004 @D
JMP I 5020 /05032-5620 .P
JMP I 5014 /05033-5614 .L
MQA MQL CLA SAM /05034-7777 ??
MQA MQL CLA SAM /05035-7777 ??
MQA MQL CLA SAM /05036-7777 ??
MQA MQL CLA SAM /05037-7777 ??
MQA MQL CLA SAM /05040-7777 ??
MQA MQL CLA SAM /05041-7777 ??
AND 0004 /05042-0004 @D
JMP I 5024 /05043-5624 .T
JMP I 5020 /05044-5620 .P
AND 0000 /05045-0000 @@
AND 0000 /05046-0000 @@
AND 0000 /05047-0000 @@
AND 0000 /05050-0000 @@
AND 0000 /05051-0000 @@
AND 0001 /05052-0001 @A
AND 0004 /05053-0004 @D
JMP I 5023 /05054-5623 .S
JMP I 5020 /05055-5620 .P
AND 0000 /05056-0000 @@
AND 0000 /05057-0000 @@
AND 0000 /05060-0000 @@
AND 0000 /05061-0000 @@
AND 0000 /05062-0000 @@
AND 0000 /05063-0000 @@
AND 0004 /05064-0004 @D
JMP I 5023 /05065-5623 .S
JMP I 5020 /05066-5620 .P
AND 0000 /05067-0000 @@
JMS 0000 /05070-4000 @
AND 0000 /05071-0000 @@
AND 0000 /05072-0000 @@
AND 0000 /05073-0000 @@
AND 0001 /05074-0001 @A
AND 0004 /05075-0004 @D
JMP I 5034 /05076-5634 .\
JMP I 5031 /05077-5631 .Y
AND 0000 /05100-0000 @@
AND 0000 /05101-0000 @@
JMP I 5033 /05102-5633 .[
AND 0000 /05103-0000 @@
AND 0000 /05104-0000 @@
AND 0000 /05105-0000 @@
AND 0004 /05106-0004 @D
JMP I 5036 /05107-5636 .^
JMP I 5034 /05110-5634 .\
ISZ I 0125 /05111-2525 UU
ISZ I 0125 /05112-2525 UU
ISZ I 0125 /05113-2525 UU
ISZ I 0125 /05114-2525 UU
ISZ I 0125 /05115-2525 UU
ISZ I 0125 /05116-2525 UU
AND 0004 /05117-0004 @D
JMP I 5041 /05120-5641 .!
JMP I 5036 /05121-5636 .^
AND 0000 /05122-0000 @@
AND 0000 /05123-0000 @@
AND 0000 /05124-0000 @@
AND 0000 /05125-0000 @@
AND 0000 /05126-0000 @@
AND 0000 /05127-0000 @@
AND 0004 /05130-0004 @D
JMP I 5044 /05131-5644 .$
JMP I 5041 /05132-5641 .!
MQA MQL CLA SAM /05133-7777 ??
MQA MQL CLA SAM /05134-7777 ??
MQA MQL CLA SAM /05135-7777 ??
MQA MQL CLA SAM /05136-7777 ??
MQA MQL CLA SAM /05137-7777 ??
MQA MQL CLA SAM /05140-7777 ??
AND 0004 /05141-0004 @D
JMP I 5050 /05142-5650 .(
JMP I 5050 /05143-5650 .(
AND 0000 /05144-0000 @@
AND 0000 /05145-0000 @@
AND 0000 /05146-0000 @@
AND 0000 /05147-0000 @@
AND 0000 /05150-0000 @@
AND 0000 /05151-0000 @@
AND 0004 /05152-0004 @D
JMP I 5055 /05153-5655 .-
JMP I 5056 /05154-5656 ..
AND 0000 /05155-0000 @@
AND 0000 /05156-0000 @@
AND 0000 /05157-0000 @@
AND 0000 /05160-0000 @@
AND 0000 /05161-0000 @@
AND 0000 /05162-0000 @@
AND 0004 /05163-0004 @D
JMP I 5065 /05164-5665 .5
JMP I 5062 /05165-5662 .2
AND 0000 /05166-0000 @@
AND 0000 /05167-0000 @@
AND 0000 /05170-0000 @@
AND 0000 /05171-0000 @@
AND 0000 /05172-0000 @@
AND 0000 /05173-0000 @@
AND 0004 /05174-0004 @D
JMP I 0002 /05175-5402 ,B
JMP I 0000 /05176-5400 ,@
AND 0001 /05177-0001 @A
ISZ 0000 /05200-2000 P@
AND 0000 /05201-0000 @@
AND 0000 /05202-0000 @@
AND 0000 /05203-0000 @@
AND 0000 /05204-0000 @@
AND 0004 /05205-0004 @D
JMP I 0002 /05206-5402 ,B
JMP I 0000 /05207-5400 ,@
AND 0000 /05210-0000 @@
AND 0000 /05211-0000 @@
AND 0000 /05212-0000 @@
AND 0000 /05213-0000 @@
AND 0000 /05214-0000 @@
AND 0000 /05215-0000 @@
AND 0004 /05216-0004 @D
JMP I 0046 /05217-5446 ,&
TLS /05220-6046 0&
AND 0000 /05221-0000 @@
AND 0000 /05222-0000 @@
AND 0000 /05223-0000 @@
MQA MQL CLA SAM /05224-7777 ??
MQA MQL CLA SAM /05225-7777 ??
MQA MQL CLA SAM /05226-7777 ??
AND 0000 /05227-0000 @@
JMP I 0051 /05230-5451 ,)
6054 /05231-6054 0,
MQA MQL CLA SAM /05232-7777 ??
MQA MQL CLA SAM /05233-7777 ??
MQA MQL CLA SAM /05234-7777 ??
AND 0000 /05235-0000 @@
AND 0000 /05236-0000 @@
AND 0000 /05237-0000 @@
AND 0000 /05240-0000 @@
JMP I 0054 /05241-5454 ,,
6054 /05242-6054 0,
MQA MQL CLA SAM /05243-7777 ??
MQA MQL CLA SAM /05244-7777 ??
MQA MQL CLA SAM /05245-7777 ??
AND 0000 /05246-0000 @@
AND 0000 /05247-0000 @@
AND 0000 /05250-0000 @@
AND 0000 /05251-0000 @@
JMP I 0054 /05252-5454 ,,
6062 /05253-6062 02
AND 0000 /05254-0000 @@
ISZ I 0125 /05255-2525 UU
ISZ I 0125 /05256-2525 UU
MQA MQL CLA SAM /05257-7777 ??
MQA MQL CLA SAM /05260-7777 ??
MQA MQL CLA SAM /05261-7777 ??
AND 0000 /05262-0000 @@
JMP I 0046 /05263-5446 ,&
TSK /05264-6045 0%
MQA MQL CLA SAM /05265-7777 ??
AND 0000 /05266-0000 @@
AND 0000 /05267-0000 @@
MQA MQL CLA SAM /05270-7777 ??
MQA MQL CLA SAM /05271-7777 ??
MQA MQL CLA SAM /05272-7777 ??
JMS 0000 /05273-4000 @
JMP I 0051 /05274-5451 ,)
6053 /05275-6053 0+
AND 0000 /05276-0000 @@
MQA MQL CLA SAM /05277-7777 ??
MQA MQL CLA SAM /05300-7777 ??
AND 0000 /05301-0000 @@
AND 0000 /05302-0000 @@
AND 0000 /05303-0000 @@
JMS 0000 /05304-4000 @
JMP I 0005 /05305-5405 ,E
6102 /05306-6102 1B
AND 0000 /05307-0000 @@
AND 0000 /05310-0000 @@
6102 /05311-6102 1B
AND 0000 /05312-0000 @@
AND 0000 /05313-0000 @@
AND 0000 /05314-0000 @@
JMS 0000 /05315-4000 @
JMP I 0010 /05316-5410 ,H
6074 /05317-6074 0<
AND 0000 /05320-0000 @@
AND 0000 /05321-0000 @@
6074 /05322-6074 0<
AND 0000 /05323-0000 @@
AND 0000 /05324-0000 @@
AND 0000 /05325-0000 @@
JMS 0000 /05326-4000 @
JMP I 5272 /05327-5672 .:
AND 0040 /05330-0040 @
AND 0001 /05331-0001 @A
ISZ 0000 /05332-2000 P@
AND 0000 /05333-0000 @@
AND 0000 /05334-0000 @@
AND 0000 /05335-0000 @@
AND 0000 /05336-0000 @@
AND 0004 /05337-0004 @D
AND 0000 /05340-0000 @@
JMS 0000 /05341-4000 @
AND 0000 /05342-0000 @@
AND 0000 /05343-0000 @@
AND 0000 /05344-0000 @@
AND 0000 /05345-0000 @@
AND 0000 /05346-0000 @@
AND 0000 /05347-0000 @@
ISZ 0004 /05350-2004 PD
AND 0000 /05351-0000 @@
MQA CLA DAD /05352-7743 ?#
AND 0000 /05353-0000 @@
DCA I 5203 /05354-3603 ^C
JMS 5300 /05355-4300 #@
DCA I 5207 /05356-3607 ^G
JMS 5300 /05357-4300 #@
AND 0175 /05360-0175 A=
AND 0000 /05361-0000 @@
AND 5275 /05362-0275 B=
AND 0000 /05363-0000 @@
AND 5375 /05364-0375 C=
JMP I 0000 /05365-5400 ,@
CLA IAC /05366-7201 :A
JMP 5306 /05367-5306 +F
CLA BSW /05370-7202 :B
6543 /05371-6543 5#
CLA /05372-7200 :@
AND I 5370 /05373-0770 G8
CLA IAC BSW /05374-7203 :C
TAD 5234 /05375-1234 J\
DCA I 5305 /05376-3705 _E
JMP 5261 /05377-5261 *1
PAGE
FPC1,5000 /LTR 0000 /05400-5000 (@
0000 /FEXIT /05401-0000 @@
LEB25P,0050 /STARTE /05402-0050 @(
7147 /LEAI BASE+25X4+ /05403-7147 9'
0000 /FEXIT /05404-0000 @@
LEB25,0050 /STARTE /05405-0050 @(
7047 /LEAI BASE+25X4 /05406-7047 8'
0000 /FEXIT /05407-0000 @@
0000 /FEXIT /05410-0000 @@
TFCLA,0002 /FCLA /05411-0002 @B
0000 /FEXIT /05412-0000 @@
TFNEG,0003 /FNEG /05413-0003 @C
0000 /FEXIT /05414-0000 @@
TFNEG3,0003 /FNEG /05415-0003 @C
0003 /FNEG /05416-0003 @C
0003 /FNEG /05417-0003 @C
0000 /FEXIT /05420-0000 @@
TFNORM,0004 /FNORM /05421-0004 @D
0000 /FEXIT /05422-0000 @@
TXTA0,0030 /XTA 0 /05423-0030 @X
0000 /FEXIT /05424-0000 @@
TXTA7,0037 /XTA 7 /05425-0037 @_
0000 /FEXIT /05426-0000 @@
TALN1,0011 /ALN 1 /05427-0011 @I
0000 /FEXIT /05430-0000 @@
TALN2,0012 /ALN 2 /05431-0012 @J
0000 /FEXIT /05432-0000 @@
TALN3,0013 /ALN 3 /05433-0013 @K
0000 /FEXIT /05434-0000 @@
TALN0,0010 /ALN 0 /05435-0010 @H
0000 /FEXIT /05436-0000 @@
TFLB30,0210 /FLDA BASE+030 /05437-0210 BH
0000 /FEXIT /05440-0000 @@
TFLB36,0212 /FLDA BASE+036 /05441-0212 BJ
0000 /FEXIT /05442-0000 @@
TFLX0P,0500 /FLDA L X0+ 0 /05443-0500 E@
6044 / 6044 /05444-6044 0$
0000 /FEXIT /05445-0000 @@
TFLX0,0440 /FLDA L X4 0 /05446-0440 D
6044 / 6044 /05447-6044 0$
0000 /FEXIT /05450-0000 @@
TFLX4P,0540 /FLDA L X4+ 0 /05451-0540 E
6044 / 6044 /05452-6044 0$
0000 /FEXIT /05453-0000 @@
TFIX4,0647 /FLDA % BASE+25X4 /05454-0647 F'
0000 /FEXIT /05455-0000 @@
TFIX4P,0747 /FLDA % BASE+25X4+ /05456-0747 G'
0000 /FEXIT /05457-0000 @@
FSB116,6232 /FSTA BASE+116 /05460-6232 2Z
0000 /FEXIT /05461-0000 @@
FAB066,1222 /FADD BASE+066 /05462-1222 JR
0000 /FEXIT /05463-0000 @@
FAB110,1230 /FADD BASE+110 /05464-1230 JX
0000 /FEXIT /05465-0000 @@
FAB124,1234 /FADD BASE+124 /05466-1234 J\
0000 /FEXIT /05467-0000 @@
FAB132,1236 /FADD BASE+132 /05470-1236 J^
0000 /FEXIT /05471-0000 @@
FAB140,1240 /FADD BASE+140 /05472-1240 J
0000 /FEXIT /05473-0000 @@
FAB146,1242 /FADD BASE+146 /05474-1242 J"
0000 /FEXIT /05475-0000 @@
FAB154,1244 /FADD BASE+154 /05476-1244 J$
0000 /FEXIT /05477-0000 @@
FSB162,2246 /FSUB BASE+162 /05500-2246 R&
0000 /FEXIT /05501-0000 @@
FSB170,2250 /FSUB BASE+170 /05502-2250 R(
0000 /FEXIT /05503-0000 @@
FSB176,2252 /FSUB BASE+176 /05504-2252 R*
0000 /FEXIT /05505-0000 @@
FSB204,2254 /FSUB BASE+204 /05506-2254 R,
0000 /FEXIT /05507-0000 @@
FSB212,2256 /FSUB BASE+212 /05510-2256 R.
0000 /FEXIT /05511-0000 @@
FSB220,2260 /FSUB BASE+220 /05512-2260 R0
0000 /FEXIT /05513-0000 @@
FSB226,2262 /FSUB BASE+226 /05514-2262 R2
0000 /FEXIT /05515-0000 @@
FSB234,2264 /FSUB BASE+234 /05516-2264 R4
0000 /FEXIT /05517-0000 @@
FMB242,4266 /FMUL BASE+242 /05520-4266 "6
0000 /FEXIT /05521-0000 @@
FMB250,4270 /FMUL BASE+250 /05522-4270 "8
0000 /FEXIT /05523-0000 @@
FMB256,4272 /FMUL BASE+256 /05524-4272 ":
0000 /FEXIT /05525-0000 @@
FMB264,4274 /FMUL BASE+264 /05526-4274 "<
0000 /FEXIT /05527-0000 @@
FMB272,4276 /FMUL BASE+272 /05530-4276 ">
0000 /FEXIT /05531-0000 @@
FMB300,4300 /FMUL BASE+300 /05532-4300 #@
0000 /FEXIT /05533-0000 @@
FDB306,3302 /FDIV BASE+306 /05534-3302 [B
0000 /FEXIT /05535-0000 @@
FDB314,3304 /FDIV BASE+314 /05536-3304 [D
0000 /FEXIT /05537-0000 @@
FDB322,3306 /FDIV BASE+322 /05540-3306 [F
0000 /FEXIT /05541-0000 @@
FDB330,3310 /FDIV BASE+330 /05542-3310 [H
0000 /FEXIT /05543-0000 @@
FDB336,3312 /FDIV BASE+336 /05544-3312 [J
0000 /FEXIT /05545-0000 @@
FDB344,3314 /FDIV BASE+344 /05546-3314 [L
0000 /FEXIT /05547-0000 @@
0006 /STARTD /05550-0006 @F
0001 /FPAUSE /05551-0001 @A
0000 /FEXIT /05552-0000 @@
0005 /STARTF /05553-0005 @E
0001 /FPAUSE /05554-0001 @A
0000 /FEXIT /05555-0000 @@
SLA116,6232 /FSTA BASE+116 /05556-6232 2Z
0320 /FLDA BASE+360 /05557-0320 CP
5232 /FADDM BASE+116 /05560-5232 *Z
0000 /FEXIT /05561-0000 @@
SLM116,6232 /FSTA BASE+116 /05562-6232 2Z
0322 /FLDA BASE+366 /05563-0322 CR
7232 /FMULM BASE+116 /05564-7232 :Z
0000 /FEXIT /05565-0000 @@
FAB374,1324 /FADD BASE+374 /05566-1324 KT
0000 /FEXIT /05567-0000 @@
FAB402,1326 /FADD BASE+402 /05570-1326 KV
0000 /FEXIT /05571-0000 @@
FDB410,3330 /FDIV BASE+410 /05572-3330 [X
0000 /FEXIT /05573-0000 @@
TJEQ,1000 /JEQ 0 /05574-1000 H@
5577 / 5577 /05575-5577 -?
0000 /FEXIT /05576-0000 @@
0000 /FEXIT /05577-0000 @@
TJGE,1010 /JGE 0 /05600-1010 HH
5603 / 5603 /05601-5603 .C
0000 /FEXIT /05602-0000 @@
0000 /FEXIT /05603-0000 @@
TJLE,1020 /JLE 0 /05604-1020 HPMMES 4260
TYPE 0070
UMESS 4076
UNIT 2234
UNK1 0021
UNK2 0040
UTSMK1 1623
UTSMK2 1652
UTSMK3 1702
UTSMK4 2000
UTSMK5 2034
UTSMK6 2064
UTSMRK 1600
WADDR 4552
WCNT 4476
ERRORS DETECTED: 0
LINKS GENERATED: 0